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ABSTRACT 


Part  I  of  this  report  covers  the  problem  of  free  and  forced  vibration 
of  a  unidirectional,  multifiber  reinforced  composite.  A  theoretical 
investigation  is  conducted  through  the  use  of  the  linear  theory  of  elas¬ 
ticity.  For  this  case,  the  geometrical  array  of  the  representative  element 
consists  of  a  circular,  inner  solid  fiber  cylinder  bounded  by  and  bonded 
to  a  circular  outer  matrix  shell.  Composites  of  infinite,  finite,  and 
semi- infinite  lengths  are  treated.  It  is  assumed  that  the  deformation  is 
axisymmet.rical  and  that  the  vibration  is  longitudinal.  Characteristic 
equations  are  established  which  relate  circular  frequencies  to  axial  wave 
numbers  of  three  cases  of  composite  length.  Solutions  are  obtained  for 
stresses  and  displacements  of  composites,  of  finite  or  semi- infinite 
length,  subjected  to  axial,  piecewise-constant ,  or  sinusoidal  loading  at 
one  end  and  different  geometrical  boundary  conditions  at  the  other. 

Part  II  presents  an  approximate  differential  equation  based  on  the  Bernoulli 
hypothesis  of  deformation.  The  solution  of  this  equation  is  established  for 
steady  and  transient  states  of  vibration  in  composites  of  both  finite  and 
infinite  length.  Computation  of  the  coefficients  in  the  differential  equa¬ 
tion  is  performed  by  assuming  symmetry  of  revolution  for  the  basic  element 
and  also  by  using  a  hexagonal  fiber  arrangement.  Part  III  lists  numerical 
results  based  on  the  equations  developed  in  Parts  I  and  II.  The  appendixes 
in  this  report  give  the  computer  programs  used  to  perform  the  computations. 
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PART  1 


ANALYSIS  QF  FREE  AND  FORCED  VIBRATION 
OF  A  UNIDIRECnONAL  MULTIFIBER  REINFORCED  COMPOSITE 
USING  EQUATIONS  OF  THE  THEORY  OF  ELASTICITY 


INTRODUCTION  AND  SUMMARY 


This  portion  of  the  program  was  concerned  with  the  analytical  investi¬ 
gation  of  a  unidirectional,  multifiber  reinforced  composite  subjected  to 
longitudinally  forced  vibration  (dynamic  loading  at  one  end)  and  to  free 
vibration.  The  theory  of  elasticity  was  used  for  the  case  of  axial  sym¬ 
metry.  In  this  report,  solutions  to  Navier's  equations  of  motion  are 
expressed  in  the  scalar  and  vector  wave  potentials  associated  with  the 
names  of  Helmholtz  and  Lame.  Double  infinite  series  solutions  for  the 
stresses  and  displacements  of  fiber  and  matrix  in  their  general  forms  then 
are  established  from  these  functions. 

Ahmed  [1]*  studied  the  axisymmetric  plane  strain  vibrations  of  a 
thick-layered  orthotropic  cylindrical  shells  subjected  to  internal  and 
external  pressures.  In  his  analysis,  the  eigenmodes  of  the  composite 
shell  in  terms  of  the  eigenmodes  of  the  individual  layers  were  determined. 
Using  linear  theory,  Armenakas  [2]  solved  the  problem  of  free  vibration  of 
a  single  composite  cylindrical  shell  of  finite  length.  No  numerical  solu¬ 
tions  were  given  in  his  paper,  however. 

In  this  report,  a  hexagonal  array  of  fibers  in  a  matrix  was  assumed 
for  the  sake  of  convenience.  The  basic  representative  element  considered 
was  a  circular  composite  cylinder  taken  from  the  whole  composite.  Specif¬ 
ically,  it  contained  a  circular  inner  solid  cylinder  of  one  material 
bounded  by  and  bonded  to  a  circular  outer  shell  of  another  material.  A 
model  of  the  element  so  defined  was  needed  for  this  investigation.  Three 
different  cases  of  composite  length.  Infinite,  finite,  and  semi-infinite, 
were  considered. 

For  free  vibration,  a  characteristic  equation  (frequency  equation) 
which  expresses  the  relationships  between  circular  frequencies  and  axial 
wave  numbers  have  been  found  in  the  form  of  a  6  x  6  determinant,  tran¬ 
scendental  equation.  The  frequency  equations  for  the  infinite  and  finite 
cylinder  are  identical,  except  that  in  the  latter  case,  the  axial  wave 
numbers  are  determined  by  imposing  boundary  conditions  at  the  ends.  For  a 
semi-infinite  element,  the  coefficients  in  the  exponents  of  the  exponential 
functions  in  the  axial  direction  in  the  frequency  equation  must  be  real  and 
positive  in  order  to  have  vanishing  stresses  and  displacements  at  infinity. 

For  forced  vibration,  the  analysis  centers  on  the  problem  of  a  compos¬ 
ite  of  finite  or  semi-infinite  length,  under  the  axial,  piecewise-constant 


^Numbers  in  the  bracket  designate  references  at  the  end  of  the  report 


or  sinusoidal  loading  at  one  end.  The  boundary  geometry  at  the  nonloading 
end  of  the  finite  composite  cylinder  Is  either  fixed  or  freely  supported. 
Solutions  of  stresses  and  displacements  of  fiber  and  matrix  for  the  afore¬ 
mentioned  cases  have  been  obtained  through  the  generalized  Fourier  series 
technique,  which  permits  one  to  determine  the  elgenmodes  of  the  composite 
element,  In  terms  of  the  elgenmodes  of  Individual  constituents.  The  con¬ 
cept  of  quasl-orthogonallty  was  Initiated  by  Tittle  and  Is  now  used  In  a 
rigorous  expansion  of  the  boundary  functions  traversing  two  regions  into  a 
series  of  nonorthogonal  elgensets  that  arise  from  the  solutions  of  the 
potentials  In  two  different  media.  In  other  words,  the  eigenfunctions 
are  not  orthogonal  over  the  total  Interval  In  the  radial  direction,  because 
the  conditions  of  the  Sturm-Llouvllle  problem  are  not  satisfied.  Specifi¬ 
cally,  the  physical  constants  of  the  governing  differential  equations  of 
Lame -Helmholtz  potentials  of  a  composite  are  different  for  each  constituent. 
Therefore,  It  Is  Impossible  to  represent  a  function  across  the  boundary  as 
the  expansions  of  such  nuncrthogonal  elgensets  In  the  conventional  way;  for 
example,  by  means  of  Fourler-Bessel  or  Dlnl-Bessel  expansion.  To  this  end, 
orthogonal  sets  must  be  constructed  from  the  quasl-orthogonal  elgensets  by 
the  use  of  orthogonality  factors  for  each  medium  from  the  orthogonality 
conditions. 

In  formulating  and  solving  the  problem,  the  following  considerations 
and  assumptions  prevail: 

1.  Both  materials  are  elastic.  Isotropic,  and  homogeneous. 

2.  Body  forces  and  dissipative  forces  are  neglected. 

3.  Density  as  well  as  velocities  of  dllatatlonal  and  dlstortlonal 
waves  In  an  Infinite  medium  of  both  constituents  are  constants. 

A.  Only  small  displacements  are  considered;  In  other  words,  squares 
and  products  of  angles  of  rotation  are  negligibly  small  in  com¬ 
parison  with  elongations  and  shears. 

5.  Deformation  Is  axls3minetrlcal. 

6.  The  vibration  is  longitudinal,  nontorslonal ,  and  non-bending. 

7.  Dynamic  buckling  phenomena  are  not  considered. 

8.  Applied  force  Is  Independent  of  deformation. 

9.  Continuity  of  displacements  and  stresses  at  the  fiber -matrix 
interface  is  ensured. 


GENERAL  SOLUTIONS  OF  DISPLACEMENTS  AND  STRESSES  IN  TERMS  OF 
LAME -HELMHOLTZ  POTENTIALS 


In  the  absence  of  prescribed  body  forces,  Navier' s  equation  of  motion 
in  linear  elasticity  for  a  homogeneous,  isotropic  medium  is,  in  a  general 
coordinate  system. 


g'  (u, 


‘i,jk  2(l-2v)  '“j.k 


G  i 


(1) 
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Ik 

where  is  the  associated  metric  tensor,  v  Is  Poisson’s  ratio,  G  Is 

a  Lame  constant,  p  Is  mass  density  of  the  material,  and  repeated  Indices 
Indicate  summation. 

In  a  cylindrical  coordinates  (r,6,z)  system,  equation  (I)  can  be  writ¬ 
ten  In  the  following  manner:  [15] ,[17] ,[27] ,[28] 
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where  u  *  Uj^  ,  v  =  Ug  ,  w  =  V ^  Ug  and  7*  is  the  Laplacian 

operator,  defined  as 
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and  e  is  the  dilation  defined  by 

1  ) 


e  = 


+  1 

r  50  ^  Sz 


(A) 


r  9r 

Equations  (2)  are  often  associated  with  the  names  of  Pochhammer  and  Chree. 

Based  on  the  Helmholtz  theorem,  Lame  suggested  that  a  general  solution 
to  the  differential  equation  (1)  assumes  the  following  form;  [8] , [9] , [ 11] , 
[20], [21], [25] 


Ui  =  Vg“  i^.i  Lk.j 


(5) 


where  i,j,k*  1,2,3;  i  is  not  suinned  in  and  Yg-’*'  ,  Cijk  is  the 

permutation  tensor,  and  1^,  L^  (1,2,3)  are  the  displacement  potentials, 
which  are  called  Lame -Helmholtz  potentials  in  this  report,  such  that 


jk 

L 


o,  jk 


4 


(6) 


3 


and 


(7) 


Here 


and 


(8) 


(9) 


(10) 


are  the  velocities  of  dilation  and  distortion  waves,  respective,  in  an 
infinite  medium,  and  >  is  the  Lame  constant  [20].  Equations  (6)  and  (7) 
are  scalar  and  vector  wave  equations,  respectively.  Written  out  in  scalar 
form  in  cylindrical  coordinates,  equation  (5)  becomes 


aio 

1 

dLa 

ar 

dz 

r 

ae 

1 

r 

9z 

3r 

dLo 

1  aLj 

1  h  . 

r  30 

+ 

7  37 

The  strain  tensor  is  expressed  as 

e..  =  4(u.  .-fu.  .1 

2  ^  i,j 


Its  corresponding  physical  components  of  strain  tensor,  in  general  coordi¬ 
nates,  are 


e 


ij 


(13) 


4 


where  i,j  are  not  summed.  In  cylindrical  coordinates,  the  physical  com¬ 
ponents  of  strain  tensor,  derived  from  equations  (12)  and  (13),  are 


(14) 


Substituting  equations  (11)  into  equations  (14)  gives  the  strain  in  terms 
oC  potentials  in  cylindrical  coordinates: 

”  a^az r  araa '  r®  ^6 

1  fitp  ^  a%  a^Lt  ai,  ^  aLa  a%^ 

°  ar  r  3^  asaz  '  az  r  ae  '  araej 

th.  i_aL  r  T  ^ 

■  az®  ’  r  asaz  r  araz 

2  araa  r®  as  araz  r  az 

-  1  th.  i  ^ 

r  a^az  ^  r  a r  ’  ar®  ^  r®  a^  / 
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1  sk 

^  j.a 


1  yh  h 

^  1 


+  i5l2..£is.  a%  1 

3r*  '  az® 

1^2^  JL^lL^tb.^±^  (ru) 

“  2  \r  3932  ■  yZ  ^ 


The  dilatation  e  in  cylindrical  coordinates,  then,  is 


3%  l5!,  ,  3=’!^ 

"  “  -Tr--^7?F^TF  "" 


The  rotation  tensor  is 


^ij  '  2('^i.i  ■  “j.i) 


Then  the  rotation  vector  in  general  coordinates  is 


Ok  -  2  ®kij  ^i.i 


where  Q^j  are  the  physical  components  of  rotation  tensor  defined  by 


Sij 


where  i,j  are  not  summed. 

In  cylindrical  coordinates,  equations  (17)  through  (19)  become 


H  _  l(^JL  1^\ 
-  •  2  (az  •  r  aej 


6 


(20) 


1 /Su  Sw  \ 

2^  dz  '  dr  J 

_1_  d(rv  )\ 

2r  ^86  ■  8r  J 


From  equations  (11)  and  (20),  we  have 


a 


i  = 


= 


-  u 

1 

.  -L . 

jL  (. 

8z® 

r®  8  9® 

r®  ’ 

th. 

1  , 

I 

2(r 

V  89 

r®  ■ 

r  3r 

1 

8®Li 

8®1« 

3L3 

■  2r 

1  3z 

^  3rBz  ^ 

303  z 

“  3r 

(rls) 


.th\ 


J 


8®lfl 


8*1® 


r  808z  / 


(21) 


In  t.hp  rasp  of  n  hnmnppn£»rmc  Isotropic  thc  pcncr^llzcd  Hockc  *  3 

la;,’  which  relates  the  physical  components  of  stress  tensor  to  that  o!;  the 
strain  tensor  in  general  coordinates  assumes  the  following  form: 


Xgij  eij  +  2G  eij 


(22) 


where  g^j  is  the  Euclidean  metric  tensor.  The  relationship  between  the 
stress  tensor  and  the  Cauchy  strain  tensor  has  the  same  form  as  that  given 
in  equation  (22),  since 


ij 


(23; 


where  T^j  is  the  stress  tensor  and  i,j  are  not  summed.  Combining  equa¬ 
tions  (15),  (16),  and  (22),  we  obtain  the  stress  components,  in  terms  of 
Lanie-He i.nholtz  potentials,  in  cylindrical  coordinates  as 


drBz  ^  r  dr50  ^.2  d9  j 


7 


^  r  ydr  r  ^9dz  “  Sz  r  d9  "  j 


cr33  *  X^^lo  +  2G 


( 


a®i« 

al’’ 


i  4.  i  a^ 
r  ?^63z  r  5r5z 


(ri«)j 


Oia  =  G 


a^ip  2  aio  i  !ii  i!!i2. 

3rS9  ^3  d9  ^  3r&z  "  r  Sz  ”  r  99Sz 


1  ^  a^jg  j_  a%\ 

r  ar  ■  a^s  59*  j 


513 


G^2 


a%  _L 

araz  ^ 


ak 

aF 


1  a®k 
r  6  9^ 


31^ 


T  +  “  + 

r  Sr 


"  az^  ''’  r  agaz 


) 


^^2  3 


=*  G 


th. 

aeaz 


1  a% 
r®  asP 


^iL 

3z* 


^:;^aS0  ■ 


a% 

^rdz 


) 


(24) 


In  this  analysis,  the  hexagonal  array  of  fibers  is  assumed.  A  basic, 
representative  element,  which  is  a  composite  cylinder  taken  from  a  composite 
of  infinite  size,  contains  a  continuous,  circular  inner  solid  cylinder  of 
fiber  bounded  by  and  bonded  to  an  outer  shell  of  matrix,  the  contour  of 
which  is  approximated  by  a  circle.  The  geometry  and  coordinates  system 
for  an  elemental  composite  cylinder  are  depicted  in  Figure  1. 


SOLUTIONS  OF  POTENTIALS  IH  THE  CASE  OF  AXIALLY  SYMMETRIC 
DEFORMATION  AND  LONGITUDINAL  VIBRATION 


In  the  case  of  axially  symmetric  deformation  and  longitudinal  vibration, 
we  have 


V  *"  cr^3  -  Ca3  —  -  Q3  —  0  (25) 

Therefore,  when  written  our  in  scalar  form  in  cylindrical  coordinates,  equa¬ 
tions  (6)  and  (7)  be...&uie 


8 


^  Matrix  Region 
Fiber  Region 

Figure  1.  Geometry  and  Coordinates  System  for  a 
Basic  Representative  Element  Composite 
of  Finite  Length.  For  a  composite  of 
semi-infinite  length,  L  =  » 


(26) 


o 


i  A+ 
r  3r  az® 


0 


0 


(27) 


The  foregoing  equations  can  be  solved  by  the  method  of  separation  of  the 
variables . 

Omitting  the  routing  procedure,  we  arrive  at  the  general  product 
solutions  of  equations  (26)  and  (27)  as  follows. 


For  the  case  of  infinite  and  finite  length, 


A^C^g  sin(<^z)  sin(aic^t)  +  sir.(8iz)  cosCcy^Cit)  + 

Agc^g  cos(9iz)  sin(aricj\)  +  A^^^g  cosO^z)  cos(<yiCit)J  Zo|jIicrBir|  + 
^Ag^g  sin(Siz)  sin(Q'icJ^;)  +  A^^g  sin(3iz)  cos(oi^C’^t)  + 

Ag^yg  cos(9iz)  sin(aicjl)  +  Ag^g  cosCR^z)  cos(a^cJt)] 

?  [[*.» 


.z  sin|uiQ,cJt|  +  A3q,z  cos|^i^cJtJ  Z^(uiq-i 


r  + 


^AgjyZ  sin|^l^c^tj  +  A^^z  ccs||ai^cj  tjj  Wo|^lcyrJ| 


+  A2o(logr)z  H-  Ago  +  Ag^logr 


(28) 
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where  and  are  moduli  of  and  ,  respectively,  and 


Uia9  =  0^1  -  ^  ,  Uia  =  01 


and  and  denote  Bessel  functions  ‘^o(*^lcy8)  ^oI^^IctB) 

UiaP  is  real,  or  modified  Bessel  functions  ^ojuicyg^j  and  KQ|fr^jygrj  , 

respectively,  when  is  imaginary,  and  Oi  ,  Bx  »  are  eigenvalues 

which  depend  upon  the  boundary  conditions  in  a  given  problem.  In  addition, 


Bias  siaCojCat)  +  Bg^g  8in(08z)cos(^yj,C2b‘»- 


S  S([ 


I 

%(yg  cosOjz)  sin(aaCje)  +  cos(B,i£)  cosCa^c^hj  ■*■ 

r  II  .II 

iBjag  sln(ejZ)  sinCOfjCat)  +  sinCpgZ)  cosCiVgCgt)  + 

Bjug  cos(^z)  sin(ag4t)  +  Bgj^g  cosCggz)  cos(ttg4^^ 

^  /^[fiiaz  sln(i^j^(^\)  4  Ba^yZ  cosjSja”')]  Zl(iiar|  4 


M3(y=«3  ^ 


|Baj,z  sin{Ma,^Cjt)  4  B^^^z  cos|Mg^Ca  t j  J  Wi|ug^r|J 


where 


Bio  +  Bgo  r‘‘z  +  .B50  r  +  Beo  r' 


pTgc^  are  the  moduli  of  ^3^g  and  ,  respectively,  and 

"  ^2  ”  ®2  >  U2q,  =  0^2  (31) 


and  Zj^  and  denote  Bessel  functions  l>l2Ck'3|  ^od  Yi  (Msa8>^)  respec- 

tively  when  |i-jo0  in  real,  or  modified  Bessel  functions  ilj  U2Q'B^) 

Kx  (jig^gr)  respectively,  when  iJiaQ/9  is  imaginary. 
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In  case  of  modes  exited  below  their  cut-off  frequency,  attenuated 
waves  exist  which  may  be  described  by  the  following  solution 

For  the  case  of  semi- infinite  length, 


00  I  00  y 

2  \  (r^CTB  sinCor^Cit)  +  e  ^  cos  (Oi  eft)]  ’ 

sin(aicft)  +  e  cosCa^Cit)]  • 

’'•(“'“"'I*  £<,>.{[  sin(niacjt)  +  cos|m(jC?ij 


•^o(uiar)  +[Ae(*2  sin|ui^4t)  +  AeaZ  cosjuiofcj t)j  Yo(iii(^r) 


Ajqz  +  A^o  (logi^)  z  +  ^0  +  Aes  (log  r)  (32) 


00  t  03 


Ifl  = 


“a^o  LPa^° 


Bg^g  sin(Qrj4t)  +  B,|yg  e'^ 


^  cos(«,4b]  • 


i|UaaF)  ■*■  [®«(V3  sin(aj4t)  +  e  cos(o(g4b]  • 

i(|ia(»8'')^+  si"fMaa4t)  +  B^^^z  cos(u8(^4t)]  ' 

+[®ia2  sin(y8(yC8^  +  cos|MBa4t)j  '’^i  (Maar)|  + 


Biorz  +  Bjor'^z  +  Bg^r  +  Bg^r'^ 
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where,  In  equations  (32)  and  (33), 


UiaB 

- 

+ 

-  QTl 

(34) 

and 

Maae 

■ 

<4  + 

1  Maa 

=  OTg 

(35) 

In  equations 

(28) 

through 

(35)  the  expressions 

are  for  the  matrix. 

For 

the 

fiber,  we 

musi 

t: 

1.  Replace 

> 

CD 

by 

Cjy5 

(i 

=  1,3. 5. 7) 

^iaB 

by 

CiyS 

(i 

=  5,7) 

®ia9 

by 

DiY6 

(i 

=  1.3, 5, 7) 

CD. 

.3 

i« 

by 

Diy5 

(i 

=  5,7) 

(36) 

2 .  Then 

let 

CD 

< 

®iQ'6  »  ^ 

^iaS 

1  ” 

2, 4, 6,8)  -  0 

(37) 

so  that  we  will  have  finite  values  of  stresses  and  dis¬ 
placements  at  r  =  0 

3.  Replace  ffi  ,  Si  ,  Miap  .  Mia  .  ^  .  MeaS  •  Maa  •  ^  ^ 

with  Y:  .  ^1  ,  uiys  ,  .  Ys  .  .  Msye  .  May  .  •  '^a  (38) 

4.  Replace  ,  Agg  ,  ,  Bgg  ,  A^g  ,  Agg  ,  ,  Bgg 

by 

^lo  »  ^60  »  ^0  »  ^0  »  ^10  »  ^60  »  ^10  »  ^50  » 

and  set  Aqq  ,  A^q  ,  Bjq  ,  B^q  ,  »  ®2o  »  ®6o 

to  zero. 

5.  Replace  c^^^,  C2^  by  c^^  ,  C2  ,  respectively  for  the  reinforcement 


In  equations  (28)  and  (30),  the  finiteness  of  potentials,  which  in  turn 
are  the  finiteness  of  displacements  and  stresses,  has  been  satisfied  as 
t  approaches  infinity. 
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DOUBLE  INFINITE  SERIES  SOLUTIONS  OF  DISPLACE^NTS  AND  STRESSES 
(GENERAL  FORM) 


The  solutions  of  displacements  and  stresses  in  the  form  of  double  in¬ 
finite  series  are  obtainable  by  substituting  equations  (28)  and  (30),  or 
equations  (32)  and  (33),  into  equations  (11)  and  (24).  The  expressions 
obtained  for  the  cases  of  infinite  and  finite  length  cylinders  as  well  as 
for  semi-infinite  length  cylinders,  are  written  out  in  Appendixes  I  and  II, 
respectively.  These  equations  are  the  general  solutions  of  the  matrix. 

For  the  fiber,  the  results  are  of  the  ;'ame  form,  but  A^g  ,  ,  Ai£^3  , 

replaced  with  Ci^0  ,  Di(y3  ,  Cijtyg  ,  and  Di^yg  ,  respectively, 
when  i  =  1,3, 5, 7  .  Furthermore,  ,  Bj^^^g  ,  A^g  ,  are  set  equal 

to  zero  when  i  =  2,4, 6, 8  for  all  (y's  and  B's  .  This  is  understood,  as 
stated  in  the  preceding  section,  because  the  finite  values  of  stresses  and 
displacements  must  be  maintained  at  r  ®  0  .  It  must  be  mentioned  here 
that,  for  the  case  of  infinite  length  composites,  the  displacements  and 
stresses  must  be  finite  as  z  approaches  infinity;  specifically,  ^iCV 
and  Bi(y  when  i  =  1,2, 3, 4  ,  and  B^q  in  Appendix  I  must  be  set 

to  zero. 

In  Appendix  I,  all  solutions  for  stresses  and  displacements  are  ex¬ 
pressed  in  terms  of  Bessel  functions  or  modified  Bessel  functions,  depend¬ 
ing  on  whether  the  jj's  are  real  or  imaginary.  A  constant  k  is  defined 
as  +1  whenever  a  Bessel  function  is  used,  or  -1  whenever  a  modified  Bessel 
function  is  adopted.  The  range  and  functions  to  be  used  will  be  discussed 
in  the  next  section. 


DOMAIN  AND  BOUNDARY  CONDITIONS 


There  are  three  kinds  of  geometry  for  composite  length  that  must  be 
considered:  finite,  infinite,  and  semi-infinite  length.  The  fiber  arrav 
within  the  composite  is  assumed  to  be  hexagonal.  Each  basic,  representative 
element  consists  of  a  circular,  cylindrical  fiber  surrounded  by  a  shell 
matrix  of  circular  section.  The  domains  for  these  three  cases  are: 


K  Finite  Length  Composite  (Fiber):  0  r  a 

0  z  ^  L 

0  t  ^ 

(Matrix):  a  r  b 

0  ^  z  L 

0  t  ^  » 

2.  Infinite  Length  Composite  (Fiber):  0  s:  r  a 

-03  s:  z  » 

0  ^  t 

(Matrix):  a  s:  r  b 

_oo  ^  z  =° 

0  t  ® 


(39) 

(40) 


(41) 

(42) 
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Ssmi-lnf Inlte  Length  Composite  (Fiber): 

0  ^  r  ^  a 

0  i  z  ^  » 

0  ^  t  ^  ® 

(43) 

(Matrix): 

a  ^  r  ^  b 

0  ^  z  ^  ® 

0  ^  t  ^  ® 

(44) 

For  each  element,  the  condition  of  perfect  bonding  between  fiber  and  matrix 
and  the  compatibility  conditions  between  basic  representative  elements  must 
also  be  imposed.  In  other  words,  displacements  and  stresses  aij 
continuous  at  the  fiber-matrix  interface,  and  all  elements  behave  exactly 
alike.  Therefore,  the  boundary  conditions  of  an  element  at  the  lateral 
surfaces  ere: 

1.  At  the  interface, 


(a,z,t) 
w^  (a,z,t) 
oh  (a,z,t) 
^1^3  (a,z,t) 


u  (a,z,t) 

II/ 

w  (a,z,t) 
^11 (a,z,t) 
ai3(a,z,t) 


2.  At  the  outer  surface. 


u^^(b,z,c)  =  0 

a^3(b,z,t)  =  0 


(45) 


(46) 


The  boundary  conditions  (46)  are  assumed  such  that  all 
elements  in  an  infinite  region  of  composite  vibrate 
simultaneously  at  the  same  phase  and  without  longitu¬ 
dinal  shear  stresses  between  them. 

3.  All  displacements  and  stresses  should  be  finite  as  r 
approaches  zero  and/or  t  tends  to  infinite. 

In  addition  to  the  boundary  conditions  stated  above,  more  conditions  are 
present  for  the  different  cases  of  vibration  which  will  be  considered  here. 

1.  Case  1:  Infinite  and  Finite  Length,  Free  Vibration 

a.  For  the  case  of  infinite  length  cylinders,  all  stresses 
and  displacements  should  be  finite  as  z  approaches 
infinity. 
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b.  For  the  case  of  finite  length, 

(1)  At  z  *  0  ,  fixed  or  free  end, 


or 


(r,0,i:)  «  0 


0 

0  (47) 


The  fixed  end  boundary  conditions  should  actually  be 

■  0  and  u^*^^  ■  0  .  The  reason  for  using 

.  I, II  ,  ,, 

^ - (r,0,t)  -  0  instead  of  u  *  (r,0,t)  -  0  is 

nZ 

that  this  is  a  very  good  approximation  if  we  want 
to  have  a  consistent  solution. 

(2)  At  z  -  L  ,  free  end 


-  0 

=  0  (48) 

2.  Case  2:  Semi-Infinite  Length  With  Free  End 
a.  At  z  «  0  , 

O3d^^(r50,t)  =  0 

ai3^^(r,0,t)  *  0  (49) 


b.  All  stresses  and  displacements  should  tend  to  zero  as 
z  approaches  infinity. 


3.  Case  3:  Finite  Length,  Forced  Vibration  (One  end,  z  ■  0  , 
is  fixed,  and  the  other  end,  z  ■  L  ,  is  under  axial  piece- 
wise-constant  or  sinusoidal  loading) 

a.  At  z  **  0  , 


and 


w^’“(r,0,t)  =  0 


I, II 


3z 


•(r,0,t)  ^  0 


(50) 
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b.  At  z  •  h 


a 

2tt  j  [a^3(r,L,t)J  rdr  + 
o 

/  r  TT  T  fP  for  j  <  t  <  T/2 

2it  I  [ff33(r,L,t)J  rdr  -  \ 

•'  Up  for  -T/2  <  c  <  C 


or  (51) 


and 


{ 


P  sin(u)gt)  for  t  >  0 
0  for  t  <  0 


"*0 


(52) 


(53) 


where  T  is  period  and  u)g  is  the  external  exciting 
frequency. 


4.  Case  4:  Finite  Length,  Forced  Vibration  (One  end,  z  =  0  ,  is 
freely  supported  and  the  other  end,  z  =  L  ,  is  under  axial 
piecewise-constant  or  sinusoidal  loading) 


a.  At  z  -  0  , 


r <7lj^^(r,0,  t)  =  0 


b.  At  z  =  L  , 


2tt 


2tt 


[c:33  (r,L,t)J 
^a“(r,L,t)J 


rdr  + 


rdr 


for  0  <  t  <  T/2 

or 

for  -T/2  <  t  <  0 


(55) 
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(56) 


and 


r  P  sln(iUgt)  for  t  >  0 
0  for  t  <  0 


(57) 


5.  Case  5:  Semi-Infinite  Length,  Forced  Vibration  (Axial  Piece 
wise-constant  or  sinusoidal  loading  applied  at  ^  «  0) 


a.  At  z  «  0  , 


for  0  <  t  <  T/2 
for  -T/2  <  t  <  0 


or 


(58) 


and 


sin(a)g  t)  for  t  >  0 
for  t  <  0 


(59) 


aj3^^(r,0,t)  -  0 


(60) 


b.  All  stresses  and  displacements  tend  to  zero  as  z  approaches 
Infinity. 


CHARACTERISTIC  EQUATION  (FREQUENCY  EQUATION)  FOR  THE  CASES  OF 
INFINITE  AND  FINITE  LENGTH  COMPOSITES 


The  domain,  boundary  conditions,  and  solutions  of  displacements  and 
stresses  are  written  in  equations  (39)  through  (42),  (45)  through  (48)  and 
the  conditions  thereunder,  and  in  Appendix  I. 

For  perfect  bond  in  order  to  satisfy  equation  (45),  the  wave  numbers 
along  the  axial  direction  and  the  circular  frequencies  of  fiber  and  matrix 
must  be  identical;  in  other  words. 
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B 


(61) 


®1  *  ®8  " 


Qficp  =  =  YicJ  »  Yaci'  *  u). 


'or 


Then  equations  (29)  and  (31)  become 


Also, 


■  of  - '  ■  p 

wl  [U^^i 

■(?y 

-(I) 


-  1 


9^ 


-  1 


0® 


-  = 


(?) 


-T  -  1 


-  1 


(62) 


(63) 


(64) 


(65) 


(66) 


where  B  is  axial  wave  number,  ou^  is  circular  frequency,  and  is 

phase  velocity. 


Imposition  of  boundary  conditions  (45)  and  (46)  onto  equations  (223) 
through  (225)  and  (228)  in  Appendix  I  yields  six  simultaneous,  homogeneous, 
algebraic  equations.  For  a  nontrivial  solution  of  the  amplitudes,  the  de¬ 
terminant  of  their  coefficients  is  set  equal  to  zero,  resulting  in  the 
following  characteristic  equation: 

jdij  I  =  0  (67) 

where  i,j  =  1...6  .  This  equation  is  written  out  in  Appendix  III  to  this 
report . 

Equiition  (67)  is  a  transcendental  equation  which  relates  circular 
frequency  to  axial  wave  number  3  for  composites  of  infinite  and 

finite  length. 
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As  mentioned  previously,  all  ^*s  may  be  either  real  or  imaginary, 
depending  on  the  circular  frequency  .  Table  I  lists  the  range  of 
circular  frequency  uj®  ,  the  values  of  |i*s  ,  and  the  appropriate  Bessel 
functions  to  be  used  in  the  expressions  in  which  Bessel  functions  appear. 


TABLE  I 

RANGE  OF  CIRCULAR  FREQUENCIES 
AND  APPROPRIATE  BESSEL  FUNCTIONS  USED 


Range  of 

Values  of  ul*  s 

Appropriate  Functions  Used 
for  Different  Ranges  of 

Circular  Frequencies  oua 

UlY5*MeY5 

'*{  Ixy6^ 

— 

0 

0 

%>6ci  ^ 

UiaS.MsaS  real 

•l(uitt8r) 

j(ns»er) 

3c8<n»<eci^ 

Uiy6  Imaginary 

l(Miv5r) 

0 

.. 

UsyS  real 

-- 

-- 

j(lJ8Y6r) 

0 

9cj^<i<,<ec“ 

MltfS  imaginary 

^SiaSr) 

^(uiQrS^) 

-- 

-- 

(Jsa3  real 

-- 

-- 

J(iaaer'!r) 

X^<9c2 

Uiv6»Mav6  imaginary 

l{iiiv6r) 

0 

0 

X{j<8c2 

Miae»Uac^9  imaginary 

l(CiaSr) 

Kiiiaer) 

K(^aQr) 

In  equations  (2^49)  through  (254),  k  is  defined  as  before;  in  otl.er 
words , 


k 


whenever 

it 

is  associated 

with 

J,Y 

whenever 

it 

is  associated 

with 

I,K 

In  principle,  characteristic 
composites  of  infinite  length  and 
ratio.  For  a  free-free  cylinder, 
(z  =  0,L);  i.e. , 


equation  (67)  should  be  valid  for  both 
of  finite  length,  of  a  large  aspect 
the  stresses  should  vanish  at  both  ends 


^33  (r  ,0 ,  t )  -  0 


a3^*^‘(r,L,t)  =  0 


(68) 
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With  this  in  mind,  after  applying  these  boundary  conditions  (68)  into 
equations  (240)  and  (241)  of  Appendix  I,  we  get 


“  V»0 

■  *»aS 

“  Biff0 

“  ®®a0 

n 

CD 

■  <^5y6 

“  “iyS 

■  °3y6 

“  *3a 

=  *4a 

=  CiY 

■ 

Baa 

“  Diy 

“  Djy 

Bio 

“  ®S0 

^  /  \  OTT 

S(n)  -  — 


0 


0 

0  (69) 


(70) 


where  n  »  1,2,3...  .  With  the  eigenvalues  established  through  equation 
(70),  we  can  find  the  exact  values  of  circular  frequency  of  a  composite 

of  finite  length.  It  must  be  stated  that  the  conditions  of  the  vanishing 
shear  stresses  at  both  ends  are  not  satisfied;  in  other  words, 


This  is  not  important,  however,  since  shear  stress  ai3  is  always  small  at 
both  ends  and  self-equilibrating,  the  shear  stress  along  the  outside  lateral 
boundary  vanishes: 


ai3(b,z,t)  =  0 


CHARACTERISTIC  EQUATION  (FREQUENCY  EQUATION)  FOR  THE  CASE  OF 
THE  SEMI-INFINITE  LENGTH  COMPOSITE 


In  a  similar  manner,  a  system  of  six  simultaneous,  homogeneous  algebraic 
equations  is  found  by  imposing  boundary  conditions  (45)  and  (46)  onto  equa¬ 
tions  (242)  through  (244)  and  (247)  in  Appendix  II.  The  vanishing  of  the 
determinant  for  the  amplitude  coefficients  yields  the  frequency  equation 
for  the  semi-infinite  length  composite,  as  follows: 


*ij 


(71) 


where  i,j  =  1...6  .  This  equation  is  written  out  in  Appendix  IV. 
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Ic  must  be  emphasized  that  equation  (71)  is  very  similar  to  equation 
(67);  however,  the  physical  meanings  and  mathematical  results  a£e  different 
and  should  not  be  confused  with  each  other.  In  equation  (71),  8  is  real 
and  positive  in  all  cases,  but  8  in  equation  (67)  has  no  such  restriction 
and  is  the  wave  number  in  the  axial  direction  for  longitudinal  vibration 
of  the  composite.  Furthermore,  |i*s  in  the  previous  case  may  be  real  or 
imaginary,  depending  on  the  range  of  frequency;  on  the  other  hand,  (i*s 
in  the  semi- infinite  rod  are  always  real.  In  addition,  equations  (63) 
through  (j66)  become 


2 


MiyS 


ulv6 


(72) 


(73) 


(74) 


(75) 


SOLUTIONS  FOR  FINITE  LENGTH  COMPOSITE  WITH  ONE  END  (z  =  0)  FIXED 
AND  THE  OTHER  (z  ^  L)  SUBJECTED  TO  AXIAL  PIECEWISE -CONSTANT  OR 
SINUSOIDAL  LOADING 


Now  let  us  solve  a  vibration  problem  of  composite  with  one  end  fixed 
and  the  other  end  under  piecewise-ccnstant  loading.  No  initial  condition 
is  specified,  since  only  steady-state  solution  is  obtained.  In  numerical 
calculation,  period  T  as  well  as  the  magnitude  of  piecewise-constant 
loading  P  must  be  given. 

The  Fourier  expansion  of  a  piecewise-constant  function  P  (equation 
51)  is 


n=i,s,3,... 


2n-l 


2  (2n-l)TTt 
T 


(7b) 
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Combining  equations  (50),  (51), (53),  (236),  (237),  (2A0),  (241),  and  (76)/ 
we  get  ((Ti3^’^*(r,0,t)  -  o) 


tr  ^2n-lJ 


Zo(ui<ye')  +  Wl(ye[(^“  +  2g“)8*  +  utj]- 

"o  -  »^»«8  (zg”  b)  • 

Zq  ^UaofS'^]  ■  ^aR  (^G  ii3Q,5  sj  k  Wg(nj(^grJ  |  rdr 

2"  J  +  2G^)b*  +  kX^  iS^sj  • 


cos(0L) 


(77) 


JU 


2(2n-l)TT 


(78) 


where  n  =  1,2,3 . and  the  rest  of  the  coefficients  in  the  expressions 

for  stresses  and  displacements  are  zeroes  (reference  equations  262,  263, 
267,  and  269  in  Appendix  V).  Here  in  equation  (77),  M’s  and  q’s  are 
defined  by  equations  (266)  and  (270)  through  (276). 


In  order  to  obtain  the  coefficients  ,  we  must  employ  the  so- 

called  quasi-orthogonality  property  [24]  of  a  function  across  multiple  media. 
The  eigenfunctions  in  equation  (77)  are  not  orthogonal  over  the  total 
interval  in  the  radial  direction,  because  the  conditions  of  the  Sturm- 
Liouville  problem  are  violated,  in  that  the  physical  constants  of  the 
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governing  differential  equations  of  a  composite  are  different  for  each  con¬ 
stituent.  Therefore,  it  is  not  possible  to  represent  a  function  as  the 
expansions  of  such  nonorthogonal  eigensets  in  the  ordinary  sense,  such  as 
Fourier-Bessel  or  Uini-Bessel  expansion. 

In  general,  the  Fourier  coefficients  Fp  of  a  function  Q(r)  for  a 
multiple  M-layer  composite  can  be  determined' by 


^  mo 

1 

^  ■ 

"^mi  ' 

'^mi 

f 


where  Xm  defined  as 


ni»l 

where  M  is  the  number  of  layers  and  the  m’"*'  region  is  r^^  «  r  <  rj^^. 
Equation  (80)  is  the  condition  of  the  quasi-orthogonality  and  R  *  eigen¬ 
function  corresponding  to  homogeneous  boundary  conditions  of  the  type 
considered  in  the  problem. 

For  the  present  problem,  the  coefficients  of  equation  (77)  may 

be  represented  in  the  following  form: 
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+  2gIi)  e?  +  WoJji^^grJ  - 

^OfB  (  MsqtB  ^)  ^o  (uaorB^J  “ 


where  Xj^  and  Xs  defined  in  equations  280  in  Appendix  V. 

With  A5^0  found  by  equation  (81)  and  with  the  eigenvalues  obtained 
from  equations  (248)  through  (254),  we  can  get 

from  equations  (270)  through  (276)  and  then  obtain  displacements  and 
stresses  of  the  composite  from  equations  (236)  through  (241).  This  com¬ 
pletes  the  solutions  for  composites  of  finite  length  with  one  end  (z  *  0) 
fixed  and  the  other  end  (z  «  L)  subjected  to  axial  piecewise-constant 
loading.  Detailed  procedures  aie  written  out  in  Appendix  V. 
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If  the  composite  is  under  sinusoidal  loading  P  si-^CoUet)  at  z  =  L  , 
the  problem  is  much  easier  to  solve.  From  equations  (52)  and  (240) >  wc 
have  the  following: 

P  -  -  *5 

H[(\”  +  2g“)  8®  +  kX“  W„  (Si„gr)  - 

H,  [20^1  S,  e)  Z^(Ma<»9r)  - 
M»  (  e)  kW„(Ma<,8>^)}rdr  + 


2n 


f  +  k).^ 


(82) 


a 


0) 


(83) 


and  the  other  coefficients  vanish.  In  equation  (82),  M's  and  |i's  arc 
defined  in  equations  (266)  ond  (270)  through  (276).  It  should  be  mentioned 
that  all  of  the  subscripts  associated  with  this  case  should  be  dropped, 
since  summation  is  not  performed  in  this  problem.  Also,  it  should  be  noted 
that,  for  a  composite  under  longitudinal  loading  of  simple  harmonic  force, 
the  Fourier  series  expansion  and  the  quasi-orthogonality  technique  of  tlie 
function  are  not  used. 

Ag  in  equation  (82)  can  be  determined  by  the  integration  of  botli  sides. 
Therefore,  other  coefficients  of  solutions  under  Appendix  I  can  be  found 
from  equation  (270). 
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SOLUTIONS  FOR  FINITE  LENGTH  COMPOSITES  WITH  ONE  END  <2  -  0) 
FREELY  SUPPORTED  AND  THE  OTHER  (z  -  t)  SUBJECTED  TO  AXIAL 
PIECailSE-CONSTANT  OR  SINUSOIDAL  LOADING 


From  Che  following  equation, 


(84) 


and  proceeding  in  the  same  manner  delineated  in  the  previous  section,  we 
can  ob.^ain  the  expression  for  the  coefficient  the  case  of  a 

composite  placed  under  piecewise  loading. 
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where  Xa  X4  defined  by  equation  (299). 

With  A^(y0  found  by  equation  (85)  and  with  the  eigenvalues  obtait*‘'d 
from  equations  (248)  through  (254),  we  can  obtain  ^2^0  I  hcxS  »  » 

C^-yS  ,  from  equations  (289)  through  (295),  and  then  obtain  the 

stresses  and  displacements  of  the  composite  from  equations  (236)  through 
(241).  This  completes  the  solutions  for  composites  of  finite  length  with 
one  end  (z  ■  0)  freely  supported  and  the  other  (z  «  L)  subjected  to  axial 
piecewise-constant  loading.  Detailed  procedures  are  written  out  in 
Appendix  VI. 

For  the  case  of  a  composite  cylinder  element  subjected  to  sinusoidal 
loading  P  gin  (jL'et)»  have 


=  oUg  (86) 
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(87) 


where  M*s  are  defined  in  equation  (289),  with  the  subscripts  dropped. 
Once  the  other  coefficients  are  obtained,  we  can  then  calculate  stresses 
and  displacements  from  equations  (236)  through  (241)  without  the  need  to 
perform  a  double  summation. 


SOLUTIONS  FOR  SEMI-INFINITE  LENGTH  COMPOSITES  WITH  THE  END  z  «  0 
UNDER  AXIAL  PIECEWISE -CONSTANT  OR  SINUSOIDAL  LOADING 


Combining  boundary  conditions  (58),  (45),  and  (46)  with  equations 
(242)  through  (244)  and  (247),  together  with  £he  use  of  generalized 
Fourier  series  techniques,  the  coefficients  Ag^g  can  be  found  as 
follows; 


)  ' 
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(UlQ 


'■  “fvo]  ■ 


^o{‘‘ia6'^)  dr'  -  *^aB  [zgH  UaagB^)  • 

•^o(“'2q'8'^)  •  Hj(y0  UsQ/S^)  ^o{'^8aS'^)1  dr 

where  and  Xa  defined  by  equation  (314). 

With  Aj^o  found  by  equation  (88)  and  the  eigenvalues  obtained  from 
quations  (255^^  through  (260),  we  can  get  ^^^9  ,  ,  T!5y5  > 

yS  ,  from  equations  (304)  through  (310)  and  then  obtain  the  solutions, 
of  the  stresses  and  displacements  of  the  composite  from  equations  (242) 
through  (247).  This  completes  the  solutions  for  composites  of  semi-infinite 
length  with  the  end  z  •  0  subjected  to  axial  piecewise-constant  loading. 
Detailed  procedures  and  solutions  are  written  out  in  Appendix  VII. 

For  a  composite  of  semi-infinite  length  with  the  end  z  =  0  subjected 
to  sinusoidal  loading,  we  have,  by  applying  boundary  conditions  (56)  in 
equation  (246), 


o 
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+  [(X^  +  2gI)?  -  Jo(uiY5r)  - 

Ms  (2G^c,y5^)  Jo(l*aY6")}  <8^> 

v.’here  M's  and  |j,*s  are  determined  by  equations  (301)  and  (304)  through 
(310) .  As  was  done  in  the  previous  section,  Ag  can  be  found  by  integrat¬ 
ing  both  ends  ^rom  r  »  0  to  r  =  b  ,  The  other  coefficients, 


»  ^5  ,  and  Dg  ,  are  then  obtained  from  equations  (304) .  The  solutions 
of  the  stresses  and  displacements  are  therefore  obtainable  from  Appendix  II. 


CONCLUSIONS  AND  DISCUSSION 

Frequency  equations  which  relate  circular  frequencies  and  axial  wave 
numbers  have  been  established  for  the  cases  of  infinite  and  finite,  and 
semi-infinite  length  composites  (reference  Appendixes  III  and  IV).  For 
longitudinal  forced  vibration,  the  solutions  of  stresses  and  displacements 
have  been  obtained  for  composites  of  the  following  types: 

1.  Finite  length  cylinder  with  one  end  (z  «  0)  fixed  and  the 
other  end  (z  *  L)  under  axial  piecewise-constant  or  sinu¬ 
soidal  loading. 

2.  Finite  length  cylinder  with  one  end  (z  »  0)  freely  supported 
and  the  other  (z  «  L)  under  axial  piecewise-constant  or 
sinusoioal  loading. 

3.  Semi- infinite  length  composite  with  the  end  z  =  0  under 
axial  piecewise  constant  or  sinusoidal  loading. 

Tnese  solutions  are  given  in  Appendixes  V,  VI,  and  VII,  together  with 
Appendixes  I  and  II. 

In  obtaining  the  steady  state  solution  of  forced  vibration,  the  gen¬ 
eralized  Fourier  series  technique  was  used  instead  of  transforms  or  Green 
functions.  The  method  devised  for  this  program  is  much  simpler  than  these 
techniques.  The  transform  or  Green  function  methods  would  be  required  for 
the  study  of  the  behavior  of  transient  phenomena,  however. 
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PART  XI 


ANALYSIS  OF  THE  VIBRATIONS  OF  A  CC»ffOSXTE  MATERIAL 
IN  STEADY  AND  TRANSIENT  STATE  USING  AN  APPROXIMATE  THE(MIY 


For  real  composite  materials,  the  ratio  of  fiber  length  to  fiber  diam¬ 
eter  is  large  (more  than  1000).  This  suggests  that  it  could  be  possible  to 
analyze  the  coi^oslte  vibrations  for  waves  traveling  In  the  fiber  direction 
by  using  an  additional  hypothesis  of  deformation,  as  it  is  assumed  for  bars 
under  longitudinal  vibrations.  This  additional  hypothesis  of  deformation 
is  the  so-called  Bernoulli  hypothesis;  namely,  that  the  plane  cross  sections 
remain  plane  while  the  wave  is  passing  through. 

To  a»>'  •  re  that  results  obtained  from  a  composite  materials  theory  based 
on  the  Be..uoulli  hypothesis  will  be  accurate,  the  criterion  will  be  analo¬ 
gous  to  that  established  for  the  longitudinal  vibration  of  bars;  in  other 
words,  that  the  accuracy  decreases  when  the  ratio  of  fiber  diameter  to  wave 
length  increases.  The  approximate  theory  will  be  applicable  even  for  the 
study  of  high-frequency  vibrations,  since  the  fiber  diameter  is  quite  small. 
Part  III  of  this  report  will  compare  numerical  results  obtained  from  the 
exact  Navier’s  equations  for  tiypical  composite  materials  (Part  I  of  this 
report)  and  those  obtained  by  using  the  approximate  theory.  This  compari¬ 
son  will  define  the  field  oi  application  of  the  approximate  theory.  It  can 
be  said  in  advance,  however,  that  the  results  obtained  from  this  theory  are 
sufficiently  accurate  to  be  applicable  to  most  of  the  technical  problems 
encompassed  by  this  program. 

The  boundary  conditions  are  simplified,  as  in  Part  I,  by  assuming  sym¬ 
metry  of  revolution.  However,  the  constants  that  appear  in  the  fundamental 
differential  equation  are  also  computed  by  considering  the  more  exact  boun¬ 
dary  conditions  corresponding  to  the  hexagonal  arrangement  of  the  fiber  into 
the  matrix.  Part  III  gives  numerical  results  for  the  comparison  of  both 
types  of  boundary  conditions. 

The  basic  representative  element  used  in  the  development  of  the  approx¬ 
imate  theory  is  identical  to  that  used  in  Part  I  (Figure  1)  as  are  the 
hypothesis  for  the  material  characteristics  (e.g.,  perfect  elasticity,  iso¬ 
tropy)  . 

By  using  the  approximate  theory,  w  can  find  the  velocity  of  the  propa¬ 
gation  of  elastic  waves,  and  the  solutions  for  the  free-free  and  free-fixeu 
end  cases,  in  both  steady  and  transient  states  of  vibration.  These  results 
are  extended  to  encompass  the  semi-infinite  composite.  In  the  transient 
state,  both  impact  and  sudden  loads  are  given  consideration. 

The  finite  Fourier  transforms  and  the  Laplace  transforms  are  employed 
in  the  integration  of  the  differential  equation.  These  transforms  represent 
the  space  and  time  variables,  respectively.  The  corresponding  solutions  are 
given  in  the  form  of  Fourier  series. 


32 


c^4rv;9«C^' 


DERIVATION  OB  THE  FUHDAlgNTAL  DIFFERENTIAL  EQUATI(»i 

The  so-called  Bernoulli  hypothesis  is  assumed.  A  slice  of  a  conposite 
with  a  thickness  Az  is  considered  (see  Figure  2). 


Figure  2.  Basic  Element 


When  the  wave  front  passes  through  thia  slice,  all  the  plane  cross  sections 
remain  plane,  on  the  basis  of  the  Bernoulli  hypothesis.  There  is  then  a 
plane  strain  at  any  plane  cross  section  z  =*  Zq  ,  or,  in  another  form. 


<®a3)z.z^,  ”  f(t)  (90) 


At  any  cross  section,  the  following  boundary  conditions  must  also  be  satis- 


f  ied; 

(“^).=a  ■ 

(u”)r.b  “ 

0 

(91) 

which  are 
equatic  s 

equivalent  to  the  boundary 
(45)  and  (46) . 

conditions 

given  by  the  expressions  in 
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From  the  diepleceaente 

u  « 

c. 

Cj  r  +  —  ,  we  obtain 

the  strains 

eii  • 

Ct  - 

.  eaa  ■ 

Qs 

+  ?■ 

By  setting 

cf  - 

Ki«33 

» 

Cl  “  ®33  * 

i^^33 

the  totel  dlsplecement  can  be 

obtained 

I 

U 

> 

+  K^j  *33^ 

and,  for  the  matrix, 

"■( 

11  ^  „Il\ 

-V  +  1  *33 

Th«  total  apecJfic  atraln  energy  pet  unit  of  length  is 


(92) 


(93) 


(94) 


(95) 


(97) 


To  establish  the  differential  equation  of  motion  from  Hamilton's 
variational  principle,  it  is  necessary  to  know  the  kinetic  and  pottmtlal 
energies  of  the  system. 
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The  kinetic  energy  per  unit  length  is 


where  the  equations  (94)  and  (95)  have  been  used  and  where,  after 
ing  the  integration  and  extensive  analysis,  the  constants  and 
defined  as  follows: 


Hi 


I  a^ 
P  tt  -7 


II 

P  TT 
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(98) 


perform 

were 


/on\ 


The  potential  energy  is 


Having  established  the  energies  of  the  system,  it  is  now  possible  to  apply 
Hamilton's  variational  principle  so  that  we  can  obtain  the  Euler-Lagrange 
equation.  This  will  be  the  differential  equation  which  describes  the  motion 
of  the  system.  The  expression  of  the  Hamilton  principle  is 


^  r 


r  r 


j 


(X-W)  dzdt  =  6 


F  dzdt  *  0 


(102) 
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vhere 


^Ht)  *  (ftT‘ 


(103) 


Equation  (103)  is  obtained  from  equations  (98)  and  (100).  The  variation 
of  the  integral  (102)  gives  the  Euler -Lagrange  equation  directly: 


\c£<  \azj 


(104) 


Introducing  equation  (103)  into  (104),  the  fundamental  differential  equation 
is  obtained: 


n  o 


(105) 


The  constants  Pi  ,  ,  and  Q3  are  given  in  equations  (99)  and  (101). 

By  performing  the  variation  of  equation  (102),  other  differential 
equations  appear  in  addition  to  (105).  These  are  the  natural  boundary 
conditions . 

The  Initial  boundary  condition  is 


SF  h  SF 

(^)  ■  a* 

\9t/  \3z  otJ 


(106) 


or,  expressing  F  by  equation  (103), 


o  22  o  a^w  _ 

at*  ° 


(107) 


where  t  is  constant. 


The  condition  at  the  bar  ends  is 


/^\  dt  (  \ 

Vaz/  \^z  htJ 


(108) 
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or  introducing  F  from  equation  (lOl), 


STEADY  STATE  OF  VITOATIONS 


-riWpir!: — 


To  find  Che  phase  velocity »  we  assuae 


a  sinusoidal  dlsplacenenC 


w 


A  sin  ~  (z  -  ct) 


(UO) 


where  A  Is  Che  amplitude,  )  Is  the  wavelength,  and  c  is  the  wave 
propagation  velocity.  Introducing  equation  (llO)  Into  (105)  yields  the 
following  equation  for  the  wave  propagation  velocity  In  a  composite: 


(III) 


Therefore,  in  a  composite  material,  the  wave  velocity  def^ends  not 
only  on  the  material  of  the  components  and  the  geometry  Involved,  but 
also  on  the  wavelength  X  . 

Taking  Into  account  the  frequency 


f 


JL  £ 
2tt  *  X 


we  express  equation  (111)  in  the  following  form: 


c  » 


/Qs  - 

V 


(112) 


If  the  lateral  inertia  is  neglected,  then  Dj.  is  zero,  and  c  does  not 
depend  on  the  frequency  f  . 

Part  III  of  this  report  presents  the  numerical  calculations  needed  to 
establish  the  velocity  of  propagation  for  different  types  of  composites, 
using  expressions  (111)  and  (112). 
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The  two  steady  state  cases  are  treated  In  the  following  analysis.  One 
is  the  fixed*free  composite  with  an  exciting  harmonic  load  at  the  free  end^ 
as  depicted  in  Figure  3. 


P  •  U)et 


Figure  3.  Fixed-Free  Composite  Under  Periodic  Load 

The  second  is  a  free-free  composite  with  an  exciting  harmonic  load,  as 
shown  in  Figure  4, 


We 


t 


Figure  4.  Free-Free  Composite  Under  Periodic  Force 


Assuming  the  solution  of  differential  equation  (105)  is 


w(2,t)  »  CP(z)  sin  Wgt 


(113) 


then  equation  (105)  becomes 


9 


0 


(114) 
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where  K  is  a  constant.  From  equations  (115)  through  (117),  we  obtain, 
for  the  fixed-free  case. 


(118) 


(119) 


To  find  the  natural  frequencies,  the  denominator  of  equations  (118) 
and  (119)  must  be  zero.  Therefore,  in  the  fixed-free  case,  the  natural 
frequencies  are 


(120) 


(121) 


In  the  event  that  the  exciting  force  is  periodic  but  not  harmonic,  then 
expressions  similar  to  (118)  and  (119)  can  be  applied  for  each  component 
of  the  Fourier  series  development  ot  the  periodic  force. 


Once  ?p  is  determined  by  using  equations  (118)  or  (119),  the 
displacement  w  is  obtained  from  equation  (113).  By  differentiation  with 
respect  to  z  ,  we  find  €33  ,  and  from  this,  we'  can  compute  the  stresses 
with  the  expression  (92).  The  stress  033  for  the  fiber  and  the  matrix, 
respectively,  results: 


033  -  E  €33  +  V  \aii  +  o„y 

pll  ^  II  /  II  ^  Il\ 
E  633  +  V  ^on  +  aaa) 


II 

^33 


(122) 


The  stress  distributioi.  7or  some  composites  is  shown  in  Part  III  of  this 
report. 


TRANSIENT  STATE  OF  VIBRATIONS 

For  the  transient  state  of  vibrations,  the  differential  equation  (105) 
must  be  solved  by  considering  not  only  boundary  conditions  but  also  initial 
conditions . 

To  begin,  the  finite  cosine  Fourier  transform  to  the  fundamental  equa¬ 
tion  (105)  is  applied. 


42 


This  is  an  ordinary  differential  equation  in  Wr|(t)  .  To  solv^e  this  equa¬ 
tion,  the  Laplace  transform  will  be  applied. 

As  the  first  case,  the  problem  cf  a  composite  of  finite  length  and  of 
free-free  character  (Figure  4)  placed  under  a  sudden  applied  load  on  z  =  L 
will  be  considered.  Figures  5  through  7  are  indicative  of  the  variati^^n 
of  the  load,  and  show  its  first  and  second  derivatls/es  with  respect  t  ime . 
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The  boundary  conditions  are 


(o,t)  =  0  for  t  ^  0 


(126) 


for  t  ^  0 


for  t  >  0 


The  Laplace  transform  of  the  function  w^Ct)  is 


(127) 


(128) 


The  transformation  of  the  second  derivative  of  Wj^(t)  is 


f  ax 

J  at 


^  -  P®f„(p)  -  pw^(o')  -  —3“ 


(129) 


If  the  comporite  is  at  rest  before  load  is  applied, 


w^(o-) 


dw  (o") 
n 


(130) 


With  equations  (126)  through  (130),  equation  (125)  becomes 


j^Qi  j^a  +  ^'4p^j  fn(p)  +  Qa  f^(p)  =  (-1)"  1 •^  +  Oi  ^  (131) 
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Figure  5.  Variation  of  Load 


I 


Figure  6.  First  Derivative 
(N  X  €  «  1) 
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Solving  equation  (131)  for  fn(p)  »  we  obtain 


f„(p) 


Oi 


nV 


+  0= 


+ 


03 


0i  + 


nV 


P 

K 


X 


0i 


nV 

L3 


X 


p®  + 


03 


Oi  + 


n^T^ 


Qa 


(132) 


Applying  the  inverse  Laplace  transform  to  equation  (132)  we  obtain, 
after  some  manipulation, 


-  P  /  ,vn 


1  -  1  - 


nV 


fix 


niT 


Os  +  Oi 


L2 


cos 


Qivx?  +L'n, 


(133) 


For  n  -*  0  ,  the  last  expression  becomes  indeterminate.  Applying  the 
L'Hospital  rule,  we  have 


Wo(t) 


(13A) 


The  inverse  of  the  finite  cosine  Fourier  transform  is  given  by: 


w(z,t)  = 


riTTZ 

v;^  (t)  cos  “Y" 


n=l 


(135) 
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Introducing  equations  (133)  and  (134)  into  (135)  finally  leads  to  the 
following  equation  for  the  displaceiient : 


w(z, t) 


K-t  I  Qa  2  I 


+ 


2?l 

Ktt" 


1 


cos 


1  +  n"  ~ 


Pa 


,  h+ifjt  Ql 


(136) 


In  this  equation,  we  see  a  constant  term  which,  in  general,  is  a  very 
small  displacement  of  the  whole  system  in  the  z  direction.  Another  term  is 
proportional  to  time  squared corresponding  to  the  action  of  the  constant 
force  over  the  system  considered  as  a  rigid  body.  The  other  terms  of 
equatic  (136)  represent  an  infinite  number  of  wave  displacements. 

In  the  next  portion,  an  impact  load  will  be  considered.  In  this  case, 
the  boundary  condition  (126)  is  also  valid.  Instead  of  boundary  condition 
(127),  however,  we  now  have  the  following  (illustrated  in  Figure  8). 


0 

for 

t 

<  0 

s  <■-••>  -j 

p 

1  ^ 

for 

0 

^  t  ^  € 

1  =0 

for 

t 

>  € 

(137) 

Figure  8.  Boundary  Condition  for  Impact 


T!ie  Laplace  transform  of  equation  (137)  is 


Consequently* 


K  p 

I  p  (i  - 


(138) 


(139) 


The  impulse  can  be  constructed  by  adding  the  two-step  function  a  and  b  , 
shown  in  Figure  9,  displaced  to  each  other  by  the  time  e  . 


Figure  9.  Forming  the  Step  Function 


From  this,  the  Laplace  transform  is  obtained  by  simple  multiplication  of 
equation  (132)  by  the  factor  1  -  e”®P  .  laus,  the  Laplace  transform  is 


fn(p)  = 


(-1)"  I 


Til 


^  n27T2  ^ 


1  -  e 


-ep 


2  ,  n^nfi 
P  + 


W3 


+ 


T  +  il. 


P(1  - 


2  .  n2  TT2 

P  +  “72“ 


Jil. 


^2  + 


(lAO) 
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Then  the  function  w(z,l)  is  equal  to  equation  (136)  for  C  <  t  <  e  . 

For  e  <  t  ^  ®  ,  w(z,t)  is  obtained  by  subtracting  the  same  function 
with  the  V  riable  (t  -  in  place  of  t  ,  from  equation  (136): 


v(z,t) 


P  Qa® 
2K 


(-1)" 


nfl 


(t-e) 


if.  a 

L®  0, 


L  1  f 


•  TiSn^O 


L  Jl  + 


Tianan, 


(lAl) 


If  the  tirse  of  impact  is  small,  e  is  moving  toward  zero,  and  equation 
(141)  becomes 


w(z,t)  «  - 


K  Lft 


nnz 

cos  — sin 


21  /  Os  (-1)^ 


imj  t 

V  n. 


KnW  Qj 


L  +  n® 

\  L®  / 


(142) 


where  I  =  Pe  . 

To  compute  the  impact  momentum,  we  must  assume  that  the  impacting  mass 
is  an  ideal,  rigid  body.  Then,  the  impact  velocity  is  equal  to  the  velocity 
V  of  the  mass 


(L,o)  «  V 


(143) 
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Introducing  equation  (i42)  into  equation  (143)  and  solving  for  I 


we  get 


_ _ 1 


or  expressing  the  summation  in  terms  of  hyperbolic  functions, 


where  the  displacement  w  due  to  the  Impact  momentum  I  in  a  free -free 
composite  is  given  by  (142).  If  the  impacting  mass  is  not  a  perfectly 
rigid  body,  the  right  side  of  equation  (144)  must  be  multiplied  by  a  factor 
0  ^  a  <  1  . 

We  will  now  consider  the  fixed-free  end  composite  (Figure  3).  We 
first  consider  an  applied  impulsive  load  (Figure  8).  Then  the  boundary 
conditions  are 


w(o,t)  *  0 


dz 


a,t) 


u 

for 

t 

< 

0 

p 

K 

for 

0 

< 

t  ^  e 

0 

for 

t 

> 

e 

Taking  into  account  that,  from  equation  (145), 


•S [ft  <■•'“>]  ■ 


(145) 


(146) 
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and  calling 


(0,t)  -  F(r.) 


^[If  «.,.>]  ■ .(,) 


(K7) 


the  Laplace  transfortn  of  results  in 


f„(P) 


C-l)  K  (1  -  e~  P)  -  0(p)irflr>  +  flip 

-.Id 


(148) 


where 


w 

fCP)  *  / 

n  n 


(149) 


Rememb‘^^ring  that 


w„(t)  (P)l 


(150) 


'^(z,t)  «  ^v;^(t)  cos  ^ 


(151) 


and  in  accordance  with  the  first  equation  (145),  we  have  for  z  =  0, 
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0  =  f 


(152) 


In  other  words , 


cC  to(p)]  "  •  -2/' 

n«l  .  . 


fn(P>  (153) 


Taking  the  Laplace  transform  of  this  equation,  we  obtain 


fo<P)  -  -2Z^fn(P) 


(15i) 


Substituting  equation  (148)  into  equation  (154)  ,  we  hold 


K  (1  -  e'®'’)  -  0(p) 


(-1)"  K  (1  -  e*®P)  -  0(p) 


n*l  f)  h  “H.  , 

^^3  IS 


(155) 


and  solving  for  0(p): 


1  +  2 


e-®P) 


£\p" 


(156) 


1  4  2 


T-®  P  ^1 

n«!  1  j.  ^  3  ^  a 

*  ^  “T - 5 -  n 

?  figP 
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Considering  the  identities 


y  — i  (“  “  ■  ii 

X  ■  1  +  2  '  ' 


(157) 


00 

V 

Z_,  1  +  ^ 


i  /II  1  1 

1 ~Ti.  ■  ^ 

sh  a 


(158) 


where  a  is  a  constant,  then  equation  (156)  becomes 


0(p)  '  I  (1  -  e'*’’) 


p 

k 


(159) 


Now  «e  may  calculate  the  inverse  Laplace  transform  of 


K  (i  -  e'®P) 


_ i _  _  1 

/  ‘•V^  p  \  ' 


(160) 


(161) 


Using  the  Bromwhich  integral ,  we  have 


t4!(p))  = 


^ / 


.  a^ 


(162) 
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It  is  possible  to  put  Qr  »  0  because  the  real  part  of  p  is*  less  than 
zero  (Re  [pj  ai  0)  for  t  >  0. 

To  solve  the  complex  integral  of  equation  (162),  we  will  apply  the 
residues  theorem.  The  denominator  of  the  integrand  has  poles  (Figure  10) 
at 


I  4!^  -■ 

V'  +,i>(2„  ♦  !)'/> 


where  n  «  0,±1 ,±2 , . . .  . 


Figure  10.  Poles  for  Laplace  Inversion 


The  residue  for  an  arbitrary  n  is  given  by: 


lim 

p  -  P„ 


eP'  (P  -  Pn> 


(164) 


To  find  this  result,  the  L*Hospital  rule  has  been  applied.  Using  equation 
(164), 've  obtain  the  sum  of  all  the  residues; 


(165) 


Replacing  the  iiitsgral  of  equation  (162)  with  the  value  given  in  equa¬ 
tion  (165),  and  remembering  equations  (161),  we  obtain 


f(t)  - 


(166) 


To  perform  the  inversion  of  equation  (148),  we  write  this  equation  in 
the  following  form: 


fn(p) 


(-1)'^  K  <l  ■  ^ 

P  03^+  Oi  +  C),j 


P^ 


(lo7) 
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and  we  find  the  inverse  of  the  second  term  by  putting 


r  ^ 

^  -J  0(P) _ K  (1  - 

I  P  -ep.  Tp.  n^TT^ 

1^-  (1  -  e  >')  P  03  — 


f(T)  w^(,t-T)  dT  (168) 

because  ^(t)  ,  given  by  equation  (166),  is  the  inverse  transformation  of 
w(p)  ,  as  equation  (162)  illustrates,  (t-x)  ’3  the  Inverse  transforma¬ 

tion  of  the  second  factor;  it  is  given  by  equation  (162)  ,  with  t-x  in- 
Stead  of  t: 


Wo(t  -  x) 


(169) 


(170) 


where  n=l,2,...  .  Thus,  substituting  tiuations  (159)  and  (170)  into  equa¬ 
tion  (168)>  we  can  find: 

For  n  ^  0; 
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Substituting  equations  (174)  and  (175)  into  equations  (171)  and  (172), 
and  taking  into  account  equation  (173),  we  finally  obtain  the  following 
from  equation  (167): 
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In  the  de\ eloping  of  this  expression  the  equation  (1A2)  has  been  used, 
because  it  corresponds  to  the  inverse  of  the  first  term  of  the  right  hand 
of  equation  (167). 

Now  we  will  consider  the  fixed-free  composite  under  a  sudden  load 
(Figure  5). 

Thus,  the  boundary  condition  at  the  free  end  is 


To  for  t  i  0 
I  ^  for  0  <  t  <  » 


(177) 


instead  of  the  condition  given  in  equation  (145). 

The  case  of  sudden  load  will  be  solved  as  the  limit  when  £  w  of  the 
impact  load  case.  Thus,  the  equations  (159)  and  (168)  become 
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with 


For  n  ^  0  : 


g„(t-T) 


for  n  »=  0  ; 


(-1)" 

Ktt® 


go(t-0 


(180) 


(181) 


inverse  Laplace  transform  of  the  seconcJ  factor  in  the  left-hand  of  equation 
(179). 


On  the  other  hand,  the  inverse  Laplace  transformation  of  0(p)  given 
in  equation  (178),  is 


f(T)  = 


(-1) 


(182) 
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I  .taaiapg- 


With  the  equations  (180),  (181),  and  (182)  the  equation  (179)  is  ex 
pressed  in  the  following  form 

For  n  ^  0  ; 


Wn(t) 


tf(p) 

ns  +  fil  p^l  [ 

r  nV  ^ 

„v  ^  „  1  n  f 

[o.  —  .0.)  pJJ 

£seo 


= _ L-il—.. 

~  (2v  +  I)V~ 

.  ^  J 


3/2 


cos 


nn 


/Qs  >) 

V  Ai 


t 

I 


p- V  ^ 


1  - 


nV  ^ 
n _ ^ 


I?  ^  ^ 


'  sin 


d- 


2L  1  + 


AL^ 


For  n  *  0  ; 


Wo  (t) 


_l 

2P  1 

03 

J  KL  1 

3/2 


■ 

I  + 

ila 


Idl 


(2v  + 


4L®  J 


tT+- 


/  ^”^3 


Sin 


+  1)  n  ^  ^ 


(2V  -i-  1) 


dT 


,  ,  (2v  +  L)^ 

2-  /  1  +  — i ^  ~ 

./  ^^2  .la 


(183) 


(18A) 
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Wi  put,  for  the  sake  of  brevity, 


a 


(2V  +  I)tt 
2L 


Tl^  (2v  +  1)^ 
4L® 


(185) 


(186) 


On  the  other  hand,  we  have 


} 


sin  aTdT 


—  (1  -  cos  at) 
a 


/ 


Tj.  dT 


sin 


(a+c)  dT 


(187) 


2  2 
a  -c 


(cos  ct  -  cos  at)  (188) 


I 


(t-T)® 


sin  aTdT 


a 


~  (I  -  cos  at) 

3 


(189) 
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By  substitution  of  equations  (187),  (188),  and  (189)  into  equations 
(183)  and  (184)  and  considering  equaticas  (185)  and  (186),  after  some 
algebraic  manipulations,  we  obtain 


r 


ao 


(-1)  (2vfl) 


- 


,V 


(2vfl) 


(2vfi)V 


(2\H-l)((2vflf  -  4n®) 


“i  +  !i  iatifrq 

‘T.  4L2  J 


)  (190) 
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Wo  (t) 


+ 


65 


Ir?  I^ld?  Icf 


r 


Wo  (t) 


4P 

Ktt 


n 

4 


^  . 

n" 


V. 


oo 
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■■•WAV'/L'*.. 


Findly,  applying  the  finite  cosine  Fourier  inversion,  we  find  the  dis¬ 
placement  function  for  the  sudden  load  at  the  fixed-free  composite: 


w(z,t) 


+ 1 


CO 


(t)  cos  -J— 
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+  4 


cos 


nnz 

L 


(196) 


In  the  following  text,  a  composite  of  semi- inf inite  length  subjected 
to  both  sudden  and  impulsive  loads  will  be  considered. 

The  case  of  impact  for  a  composite  of  infinite  length  can  be  developed 
as  the  limit  of  the  free- free  case  with  impulsive  load  when  the  length  tends 
to  infinity.  Taking 


^  ^  .  L-z  »  C  (197) 


where  J  is  the  distance  from  the  impacted  end.  With  equations  (197), 
equation  (14?)  becomes 


j  ^5  21 

ic  T  nic  7  (5* 


cos  sin  I  J 


at 


2,3 


I  +  I 

n 


§ 

1  +  f 

ri 

"  ) 

(198) 


with 
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Taking  the  limit  of  expression  (198)  when  -*  0  and  n  -»  »  ,  we 

find 


w(Ctt) 


cos  (5,0  si"  I  5 


at 
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5!^ 


2.2s3/2 


§  (1  +  Vhn 


(200) 


In  Appendix  V,  details  on  the  evaluation  of  the  integral  in  equation 
(200)  are  given.  The  final  result  is 


0 


E 


\p0 


(-1)^  v! 
(^  +  1) : 


(-1) 


(v  -  u).'(v  +  II  +  3)! 


(201) 


(iX  (m  +  Li  +  k  +  6)! 
\2zj  (3  +  k):(v  +  n  -  kV 


Tile  case  of  sudden  load  applied  on  a  composite  of  infinite  length  will 
now  be  considered.  Taking  the  limit  for  L  --*  »  at  formula  (136)  correspond¬ 
ing  to  the  case  of  sudden  load  for  finite  length,  \;e  obtain 


w(z,t) 


(202) 


V. 
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or,  using  equations  (209)  and  doing  A5  ^  n  -•  ® 


This  integral  can  be  evaluated  using  a  similar  method  that  is  employed 
in  Appendix  VI,  or  by  direct  numerical  integration. 


CONSTANTS  OF  THE  FUNDAMENTAL  DIFFERENTIAL  EQUATION  FOR  THE 


HEXAGONAL  ARRANGEMENT  OF  FIBERS 


In  this  section,  the  constants  ,  and  Qj  of  the  fundamental 

differential  equation  are  computed  by  using  the  boundary  conditions  that 
correspond  to  the  hexagonal  arrangement  of  the  fibers,  instead  of  the 
assumed  symmetry  of  revolution  made  before. 


According  to  the  method  indicated  in  Section  II,  the  solution  of  a 
plane  strain  problem  must  be  found.  Then  the  use  of  the  Airy  function, 
^(r,0)  defined  by 


is  .'appropriate. 


i  M  +  i_  5I2. 


_L  ^  .  i  5^0 

r0  ^2  ^0  r  BrBO 
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Because  of  the  symmetrical  arrangement  (see  Figure  11),  it  is  necessary 
to  consider  only  the  shaded  area.  The  boundary  conditions  for  the  element 
of  Figure  12  are 


The  first  four  conditions  correspond  to  the  interface,  and  the  last 
two  correspond  to  the  straight  line  AB  (see  Figure  12),  referred  to  the 
unit  vectors  n  and  T  .  In  the  following, instead  of  r,  0,  z,  is  some¬ 
times  written  I,  2,  3,  correspondingly. 


Figure  12.  Geometry  Description 


We  adopt  as  the  Airy  function 


Eq  't'n 


y. 


r  +  B 


r""  + 


C  r 


n+2 


+  D  r 


-n+8 


)  cos  nCi 


By  substituting  equation  (206)  into  equations  (204)  ,  the  follo.vfing 
stresses  are  obtained: 


CTii  *  +  2Go 


•I[" 


(n-L)  A  r^"^  +  n(n+l)  B  r  ^  + 

n  n 


(n+])(n-2)  C^r  +  (n-l)(rTf2) 


n  -1 
D  r 

"  J 


cos  n0 


^8 


El" 


+  2Co  +  ^  |n(n-l)  A  r*^"^  +  n(n+l)  B^r  ^  + 


>(207) 


(n+l)(n+2)  C^r^  +  (n-l)(n-2)  D^r 


-n 


cos  n0 


^la 


■I[" 


(n-l)  A  r^  ^  -  n(n+l)  B  r  ^  +  n(n+l)  C 

n  n  n 


n(n-l''  T)  r”^  sin  n0 
n 


By  substituting  equations  (207)  into  the  expressions  of  the  general¬ 
ized  Hooke  law  and  then  integrating,  we  obtain  the  displacements 


^  ^  J  .  Bgr'^  +  2a-2v)  Cor 


00 

'Z 


(n-2-r4v)  -  (n+2-4v)  D^r  J 


-n+l 


cos  nO , 


>(208) 


=  j^n  +  n  +  (n+4-4v)  + 


■*  n*^!  [  r\ 

(n-4+4v)  D^r  I  sin  n0 


1 
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To  satisfy  the  synunetry  conditions,  we  jiust  take  n«6,12,18, . .  .  in 
equations  (207)  and  (208).  However,  the  displacements  and  stresses  for 
r=0  must  be  finite.  Then,  for  the  fiber. 


Thus,  considering  equations  (207),  (208),  and  (209),  the 
stresses  and  displacements  in  th^^  fiber  (Index  I)  are 
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and,  for  the  matrix  (index  II),  are 


all  - 

o  o 


I  [ 

n=6,12,... 


n(n  -  1)  r^  ^  +  n(n  4*  1)  * 
n 


jll  ^-n-2  .  2)  r"  +  (n-  l)(n+2)D^^  r‘"|  cos  n9 

n  n  n 


II  _  ,II_-2  ,  ,,II  .  V  1  .  ,v  .II  n-2 

^83 


-B"  r  +  2C  "  4-  /  n(n-  1)  A"  r"  4  n(n  4-  1)  * 

o  0  im.  I  n 


n=6,12,..; 


r’"*^  +  (n  +  l)(n  +  2)  r"  +  (n  -  l)(n  -  2)D 


>  (212) 


cos  nt 


II 

^18 


I  [ 

n=6,12... 


n(n  -  1)A  r  -  n(n  4-  1)B  r  .  4- 

n 


n(n  4-  -  n(n  -  1)D 

n 


II  -nl  .  I 

r  s  1  n  n  9  / 

n  J  y 
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H.d  "point  matching"  method  may  be  used  to  find  the  constants  that 

appear  in  equations  (210)  through  (213).  Ihe  nine  constants  ,  Cj  , 

cl  ,  All  ,  pll  ,  c”  .  d”  ,  Bll  ,  and  cH  represent 
‘^  n  n  n  n  o  o  ^ 


p  =  3  +  6n 


unknowns . 

In  each  point  of  Type  (a)  in  Figure  13,  it  is  necessary  to  take  the 
four  boundary  conditions  given  by  the  first  four  equations  (205).  For 
each  point  of  Type  (b) ,  we  have  the  two  boundary  conditions  given  by  the 
last  two  equations  (205). 
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Type  (a)  Points 


Figure  13.  Distribution  cf  Matching  Points 


Taking,  for  example,  8  points  (a),  12  points  (b) ,  and  n  =  4  ,  we 
arrive  at  a  system  of  56  linear  algebraic  equations  with  only  27  constants 
unknown.  Solving  this  system  by  the  least  squares  and  substituting  the 
identified  constants  in  equations  (210)  through  (213),  we  have  the  stresses 
and  displacements  as  functions  of  the  imposed  plane  strain  . 

Now  we  must  compute  the  strain  (potential)  W  and  kinetic  T  energies. 
The  total  energies  are  given  by 


(214) 
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where 


Introduc ing 

new 

constants 

by  means 

of 

cj  = 

ow 

bz 

I 

a'  = 

n 

bw  1 

T"  3 
oz  n 

■  = 

bw  I  ^ 

b?  "n 

b”  = 

O 

Bw 

bz 

c“  = 

O 

bw  II 
bz 

a11 

’  = 

bw  II 
bz  ""n 

>  (218) 

= 

n 

bw 

bz 

11 

^  ■ 

c“  = 

n 

bw  II 
bz  ""n 

■  = 

bw  II 

bz  "^n  > 
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and  substituting  the  displacements  given  in  equations  (211)  and  (213)  into 
equations  (214)  and  (215),  we  find  the  expressions  for  the  energies  with 
€33  =  ^w/^z  as  a  common  factor-  Thus, 
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The  constants  ,  first  discussed  in  Part  1,  now  appear  in 

the  following  form,  as  a  result  of  equation  (219): 

rrr/6 

Qi  *  I  d9 

J 

o 
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PART  III 


NUMERICAL  RESULTS 


TECHNICAL  DISCUSSION 


This  portion  of  the  report  presents  the  numberical  values  obtained 
when  both  the  exact  theory  developed  in  Part  I  and  the  approximate  theory 
of  Part  II  are  used. 

Figure  14  is  a  plot  of  the  nondimensional  values  of  c/cx  against 
a/>  ,  wherein  c  is  the  phase  velocity  in  the  composite,  cj  is  the 
velocity  of  propagation  in  the  fiber,  a  is  the  radius  of  the  fiber,  and 
\  is  the  wavelength. 

The  composites  used  for  this  comparison  have  the  following  character¬ 
istic  s : 


10  • 

10^  psi 

Pi  = 

2.427 

*  10  ^  Ib-sec/in. 

II 

3.8  < 

‘  10^  psi 

Pii  = 

1.159 

'  10  ^  lb-sec/ in . 

> ;  SI 

*1 

0.2 

a  s» 

2.5  • 

lO"^  in. 

a 

II 

0.35 

= 

0.65 

The  values  of  c  corresponding  to  the  exact  theory  are  found  by 
solving  the  transcendental  equation  which  results  when  the  6X6  determi¬ 
nant  i.«!  made  equal  to  zero,  as  described  in  Part  I.  Appendix  VII  describes 
the  computer  program  used  to  find  these  roots,  with  given 

by  formulas  (87)  and  (89).  The  assumption  of  symmetry  of  revolution 
for  the  basic  element  is  then  used  in  both  cases. 


The  curves  in  Figure  14  illustrate  thau  the  error  in  tiie  velocity 
given  by  the  approximate  tlicory  is  less  than  3  percent  for  smaller 

tlian  0.10,  If  the  radius  of  the  fiber,  for  example,  is  2.5  •  10  ^  in., 
a  wave  length  /.  =  2.5  '  10’^  in.  will  correspond  to  a/\  *  0.10  .  The 
wave  velocity  in  the  fiber  is 


c 

I 


'  10  •  l(f 

2.427  •  10“* 


2.03  •  10^  in. /sec 
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Figure  14.  Phase  Velocity  as  Determined  by  the 
Exact  and  Approximate  Theories 


Then  for  «/X  *0.1,  the  curve  corresponding  to  the  exact  theory  yields 
the  following  equation: 


c  *  0.903  •  cj  -  1.83  •  l(f  in. /sec 


With  X  ■  2.5  *  10'^  in.,  the  following  frequency  results: 


c  ^  1.83  ‘  l(f 
\  ~  2.5  •  10'* 


7.33  •  IC^  — 
sec 


Then  for  any  frequency  smaller  than  7.33  *  IC^  1/sec  ,  the  approximate 
theory  gives  a  velocity  with  an  error  of  less  than  3  percent. 

The  exact  theory  yields  two  different  velocities  of  propagation.  The 
implication  is  that  two  different  types  of  waves  exist,  the  interface 
waves  (Raleigh  waves)  and  those  which  contain  combinations  of  dilatational 
and  distortional  waves. 

A  representation,  where  the  validity  of  the  approximate  theory  is  ni>r 
evident,  is  given  in  Figure  15,  where  the  wave  velocity  in  a  composite  f- 
is  plotted  as  function  of  the  wave  length  in  terms  of  fiber  diameters. 

The  upper  curve  in  Figure  14  corresponds  to  a  mode  which  propagates 
only  above  the  frequencies  of  15  x  IC^  cycles  per  second.  This  plieninnenoi! 
is  clearly  exhibited  in  Figure  16,  where  tne  wave  velocity  is  plotted  as 
function  of  the  existing  frequency.  The  frequency  of  15  x  10^  cycles  pr r 
second  is  the  cutoff  frequency  for  this  mode,  below  which  this  mode 
cannot  propagate. 

Appendix  VIII  presents  the  velocities  for  several  composites.  Is  in. 
this  parametric  study,  it  is  possible  to  evaluate  the  influence  that 
Poisson's  coefficient  of  the  matrix  and  the  volumetric  content  of  tihui  - 
have  on  the  velocity.  For  this  computation,  a  ratio  a/>.  =  0.05  is 
assumed,  but  the  values  of  the  velocity  do  not  change  in  the  figures  pi'-  t 
here  for  any  a/X  less  than  0.05. 

The  stresses  and  displacements  obtained  in  a  composite  of  firito 
length,  free  at  one  end  and  loaded  with  a  harmonic  load  at  the  oilier,  i  !  i 
now  be  compared,  using  the  exact  theory  as  described  in  Part  1  and  i r  i  .u 
mula  (122)  derived  from  the  approximate  theory.  A  composite  with  Llie 
following  characteristics  is  assumed  for  this  comparison: 


0.2500  • 

10-^ 

b  =  U.310!  • 

■  10"" 

5- 

1  lOi  I 

0.2428  • 

10’^ 

=  0.1159  ■ 

■  10"' 

e' 

■-  0.1 

P'  If  I 
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0.3800  •  l(f 


0.2000 


0.3500 


L  =  3.0000 


yy  =  1.5  •  10“ 

e 


The  units  are  given  in  pounds,  inches,  and  seconds.  Table  II  contains  the 
exact  numbers  printed  by  the  computer.  These  results  correspond  to  the 
cross-section  z  -  l.O  .  The  lowest  values  of  B  are  0.80073511  (exact 
theory)  and  0.80073  (approximate  theory. 

TABLE  II 

COMPARISON  OF  COMPUTER  VALUES, 

USING  EXACT  AND  APPROXIMATE  THEORY 


Stresses  and 
Displacements 


Exact  Theory 


7.54189E  05 

7.54189E  05 

1.0955IE  07 

.1.98458E  -04 
-1.29026E  00 


7.54189E  05 

7.54184E  05 

1.095551E  07 
-i.9b9l0E  -04 
-l.2902bE  00 


7.34J8JE  05 

4.98932E  05 

H.4  )7  70E  O') 

-J.9b91bE  -04 
-1.291J5E  on 


7.18159E  Oj 
5.3497JE  05 

8.4  57  58E  0  5 

-9.08330E  -05 
l.29n2E  00 


7.0^49^h  0) 

5.43b,'7E  0) 

8.437  5.4E  05 

-9.b44  52E  -  10 
-!.2913()E  00 


Approximate  Theory 

7.542E 

05 

7.542E 

05 

1  .()96E 

07 

-I .984598 

-04 

-! .2903E 

00 

7 . 542K 

0  5 

7.  5428 

J) 

1 .096E 

0/ 

-  «.9h‘'18E 

-0*4 

-  1 .290JE 

Oo 

7. 542E 

05 

4 .988E 

05 

8. 4348 

05 

-  J.  4b‘)!HK 

•  o.< 

-  1  .290  IE 

on 

7. 40  IE 

0  5 

5.1298 

0  . 

8.4  1-48 

U  ) 

-2  .Ml '  ,;r. 

.1  i.f 

i; 

Ml 

:  .'2H  lr.  t 

. .  ; . ,  I 

H  .  5  1 .  K 
-  I  .  ^  2  K  - 

-1.2'<0jK 


/  1H2K 

k)  I 

).  3  iSE 

05 

8. -4  54 E 

0  5 

-9.08398 

-0 ) 

-  I  .29.1 38 

00 

7 . !M28 

1 ) 

..  3.88 

0  ) 

M.  .  3.8 

o  < 

-b  .  3bh-.bE 

-12 

-  I  .290  38 

00 

Formulas  (220)  through  (222)  are  used  to  compute  the  constants  of  the 
differential  equation  of  the  approximate  theory;  a  hexagonal  fiber  arrange¬ 
ment  is  assumed.  The  results  presented  below  were  obtained  for  a  composite 
having  the  following  characteristics: 


0.2500  • 

10-» 

I 

V  = 

0.2000 

1.0000  • 

10’ 

11 

V  = 

0.3000 

2.0000  • 

10® 

I 

0  = 

2.4275  ‘ 

10“^ 

II 

p 

1.6180  • 

10'* 

Table  III  presents  the 
volumetric  content  of  0.60, 


results  for  three  composites  having  a  fiber 
0.70,  and  0.80,  respectively. 


TABLE  III 

CONSTANTS  OF  THE  DIFFERENTIAL  EQUATION  FOR  THE  HEXAGONAL  ARRANGEMENT 


0.60 

0.70 

0.80 

6.07319E  -16 

5.33778E  -16 

4.37757E  -16 

3.44217E  -09 

3.06396E  -09 

2.78031E  -09 

03 

9.94555E  01 

9.90068E  01 

9.88233E  01 

The  phase  velocity  obtained  with  these  values,  when  used  in  formula  (112;, 
varies  less  than  3  percent  from  the  velocity  found  with  the  constants 
corresponding  to  the  symmetry  of  revolution.  However,  the  stress  distribu¬ 
tion  in  the  normal  plane  is  significantly  different,  especially  when  a 
high  percentage  of  fiber  is  used. 


CONCLUSIONS 


It  can  be  concluded  that  the  accuracy  of  the  approximate  theory  is 
very  high.  While  the  comparisons  were  performed  for  steady-state  vibra¬ 
tions,  the  study  of  Figures  14  and  15  shows  that  the  transient  behavior 
of  the  composite  also  can  be  performed  with  the  approx inuite  theory.  In 
fact,  the  predominant  influence  in  the  transient  solutions  is  wrought  by 
terms  of  low  frequency;  for  these  low  frequencies,  the  results  of  the 
approximate  theory  are  very  accurate  for  the  actnl  o’)mposites,  in  which 
a  is  very  small. 
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From  this  analysis  it  is  evident  chat  existing  dimensions  in  com¬ 
posite  materials  are  not  adversely  affected,  and  the  transverse  shear 
correction  can  be  disregarded  with  no  appreciable  affect  on  the  accuracy 
of  the  numerical  results.  The  transverse  shear  correction  has  been  taken 
into  account  in  the  Mindl in-Herman  theory  (Ref.  16)  for  longitudinal 
vibrations  of  an  elastic  bar;  the  differential  equations  that  come  from 
this  theory  are  completely  hyperbolic,  and  can  be  solved  by  the  numerical 
method  of  characteristics.  However,  in  the  present  theory,  it  was  possible 
to  find  closed  analytical  solutions  even  in  the  transient  cases,  which  can 
be  applied  to  hexagonal  or  other  geometrical  arrangements. 

Appendix  VI  contains  the  computer  program  for  determining  cigen- 
frequencies  and  wavelength  in  a  composite  element;  Apendix  IX  contains  tb.o 
computer  program  for  determining  ,  ^2  »  hexagonal 

multifiber  element. 
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APPENDIX  I 


GENERAL  SOLUTIONS  OF  STRESSES  AND  DISPLACEMENTS 
FOR  INFINITE  AND  FINITE  I^NGTH  COMPOSITES 


RADIAL  DISPLACEMENT 


-  7  k  AiC^9s;n(3i55)sin(Q'iCit)  + 

,8a^o  I 

Ag^g  sin(6iz)  cosCcyiCit)  +  Ag^g  cos(6iz)  sinCo'^c^t)  + 

A^^g  cos(8iz)  cos(aiCit)j  h( 

j^Ag^g  sin(3iz)  sinCc^iCit)  +  sin(9iz)  cosCaiCit)  + 

Ag^g  cos(Biz)  sinCaiC^t)  +  Ag^g  cosCS^z)  cos  (ai  t)j  pic^g  Wi|jl^^,3r  J  + 
cos(Baz)  sinCo^aCgt)  +  Bg^g  cosOgz)  cosia^c^t)  - 
Bg^g  sin(3az)  sinCoraCat)  -  B^^^g  sinCfigz)  cos(Q'2C2t)j  Sg  + 

j^^acrR  cos(92z)  sinCc^a^s^)  ^4^8  cos(Raz)  cosCaaCat)  . 

sin(BaZ)  sin(a;jCjt)  -  Bg^g  sinCSgZ)  cosCofjCjt)  ]  6,  «.( 

00 

X)  ^  +  ^3a  ^  '=°s(ui(yCi  tjjuijj,  4 

J^lr^*U8Q-^ 

(01  ,9a=o) 


sin(9oZ)  cos  (ap  Cot) 
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+  ^2Qt  2  sin(nicrCit)  +  Aicy  2  cos|^ii£yCi  t)j 

jsi^  sln(MoQ^cat)  +  83^  cosji^a^c,  t)j  2^  )  + 

j^or  sinjMacy<^a  j  cosjiiaorCa  t)J  (l^o^r)  + 


Aao  “"^10  i^+CAeo  *  Bao)  ^ 


AXIAL  DISPLACEMENT 


w  * 


m  y  03 

E  .  E 

i3a^o 


Ajo-tt  cos(9iZ)  sinCOf^c^t)  + 


Aac^Q  cos(9i2)  cos(Qric;it)  -  A^q  si^(9iz)  sin(0;cit)  - 


)j.  PjZol&lQ'gf) 


AtoS  sin (81  z)  cos(Q'iCit)J 

^^09  cos(9iz)  sin(QriCit)  +  A40Q  cos(®iz)  cos(cir,  c;C) 

Aa(^9  sin(=iz)  sin(Of.  c^t)  -  A^ctB  sinO^z)  cos(Qr,^cit) 

?:  Wo(llicyer)  +  sinOsz)  sinCorgCgC)  + 

BacrB  sin (9a  z)  cosCcvaCat)  +  BscrS  cos (3a  z)  sin(Qr2.:aL)  4- 
B7(^0  cos(9az)  cos(Q'aC2t:)|  .  UacraZo(|iac^e’^) 

I;  ^Bac^g  sin(Baz)  sinCcVaCat)  4-  B4jyg  sin  (63  z)  c;os(Q'2C2t)  4- 


(223) 
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+  BfcrQ  cos(6az)  sinCofaCat)  +  BacrB  cos(6az)  cos(QfaCat) 


ijaQfe“o(M9(»arj 


AittSin(iiia=i  t)  + 


(Bi  ,8a=o) 


Asof  cos 


Oh(y^i  ^ojMicr^j  ^cr  i>in(MicrCi  t)  + 

A4cy  cos(^ic^Ci  t)j  Wo(piiar]  +  ^Bi<y  sin(M9cyCat)  + 

Bacy  cos(^iac^ca  t)j  {Ma^zj  Zojliaorr}  +  k  j^Bacy  sinCPacyCat)  + 
Bicy  cos(nacyC3t)j  |Macyz)  Wo|MQcrrj|  + 


Aio  +  Ago  log  r  2BioZ  +  ZBso 


NORMAL  RADIAL  STRESS 


Gii  - 


E  E 


,cya^io 


8i  >°a-o 


Keys  sin(aiz)  sin(cyiCit)  + 


sinO^z)  cos(Q'iCit)  +  A5(y9  cos(Bi  z)  sin(QriCit)  + 


A7(y3  COS(3iZ)  COS(a'iCit) 


X9!  +  k(X  +  2G)fi?ae 


gj  Zo(ij.icar)  - 


2GUiq6 


^c^sin(6iz)  sin(aiCit)  +  sin(0iz)  cosCQ-iCit)  + 


(224) 
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It 


+  Aatyo  cosOj  z)  sin(QfiCit)  +  Ae(j,g  cos(Biz)  cos  (oriCit)j. 

|X6?  +  k(x  +  2G)S^agJwo(njcs>^) - ; - j 

cosCBgz)  sin(cy8C2t)  +  cos(®2z)  cosCorgCjt) 

65^9  sin(fiaz)  sin(QfjCgt)  -  87^9  sin(Saz)  cosCoTjCg  t  )j  • 

(ZGii^^sSa)  [zof^aaB^)  '  ^ 

j^aaS  cosCBjz)  sinCOfjCjt)  +  84^9  cosCBgz)  cosCagCgt) 


Ba^S  sin(Baz)  sinCOTjCgt)  -  sinCB^z)  cosCajCgt) 

1  V 


ao 

-  E 

M’ia,iisa>o 
(9i  ,8a=o) 


kU, 


t^aae’^ 


sln^M.jQ,Cj  tj  +  A3q,  cos|^iiQ,Ci  t| 


2GZi(p.iQ,i 

(\  +  2G)Zo(niarj  - 


^Aaar  sin(nic^Citj  +  A*^^  COS 

\  ,  ^  2GW,(iii„r) 

ka  +  2G)Wc[M.ic^r|  - 


M-i  Qrj^ 


83^,  cosliiaorCg  tj  |2Gii3(y| 


Zo  '*^3(y^j  "  p 


+  Hicy  sin[il20J3 


sin |M.3jyCg  tj  +  84^^  c os^iiigryCj  l|  •  |^2GM.g(^| 
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W,(ii8Q'>^) 
-  -1^ 


2G^A*,r'* 


z  +  (Aio  -  Bao)r  +  Bj 


NORMAL  CIRCUMFERENTIAL  STRESS 


(225) 


-  P[*iaS  siti(Biz)  sinCajCit)  + 

0*1  01  jBg^o  ' 

Aa^  sin(6iz)  cosCcy^Cit)  +  Aec^g  cos(9iz)  sin(QfiCit)  + 
*7(^0  cos(eiz)  cos(aiCit)j  'Ijxlkiitae  +  6i)j  Zof&iaer)  + 

2Gljia3kZi  r 

- ^ ^atrS  sin(6iz)  sinCor^c^t)  + 

J 

A4^0  sin(9iz)  cos(QriCit)  +  ^*^^0  cos(9iz)  sinCaic^t)  + 

I 

Aaog  cos(Biz)  cos(Q'iCit)j  .  +  S?|j  Wo[]iiaBr)  + 

2GSiasWi(li.ia3r)  I  T 

_ ! _ L>  _1_  iTi  _ _ /Q  _L 


■*■  ®ia3  cosCB^z)  sinCoTgCat)  + 


®3a6  ^‘^s(Baz)  cosCOgCat)  -  sin(0az)  sin(cifaCat)  - 


B7c^g  sin(9az)  cos(Q'aCat)  .  (2GBa) 


-l(  ^2Ctb^) 


ia(yg  cosOgz)  sinC^aCat)  +  cos(Baz)  cosia^cji)  - 


Bec^g  sin(9az)  sinCOaCgt:)  -  BecrR  sinCBgz)  cosCagCat)  • 
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f  ("^ly 

®'^l] 

pcs.) 

-Jl 

cos 


t]  j*  == 


E 

(®i  »3a“°^ 


^Ai(y  sin(M.iQ,Cj  t) 


2(3i 


IQ-*-! 


sin|M.ic^Ci  t|  +  cosj]iiQ,c,  tjj 


•  z 


2<^cyWi  Ip-ic^r^ 


kX|i-12^WQ 


(2G) 


(2G) 


NORMAL  AXIAL  STRESS 


+  ^Bjq,  sin|u,(yC,tj  +  cos|ilg(jCjtjj  • 

Zl  r  (_  4  /_  \1 

•  - - -  +  sill  Hj(yCjtj  +  B4®  cos||iscyCgtj  • 

Wiliisar)!  r  -si 

- - - -f+  2G  Ajor‘*z+  (Ago  -  Bao)r  -  Biol 


(226) 


QO 

j  00 

/ 

^33  =  -  ^  ‘ 

O'!  ,0lg>o 

1  5i 

\ 

sin(3iz)  sir.icy^c^L) 


As^q  sin  (Si  z)  cos((yiCiL)  +  A5j;^3  cos  (81  z)  sin(cyiC;^L)  4 


A^,^q  cos(Piz)  cosCOfiC.^t) 


(>.  +  2r,)  =  i  + 


Agjya  sin(9iz)  SLn(QfiC,t)  +  SLn(Siz)  i-os(aiCit  )  -f- 


Ag^ci  cos(ciz)  sin(aic:it)  +  Ae^0  cos(£,z)  c os  (ci'i  cj  t  ) 


(>.  +  2G)3?  +  k>.M.?Q,|5 


Riq,0  ros(02z)  si  n  ('0'2r2  f  1  + 
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+  B-^0  cos(P3z)  cosCagCat)  -  sin(0jz)  sinCOfaCjt)  - 

B7Qrfi  sinCBaz)  cos ((y^Cg t )j  •  |^|2dM>3Q^069|  Zq ^iji3^0r||  - 

k^Bg^0  COS(figZ)  Sin((ygCgt)  +  64(^8  COS(Qf9Cgt) 

Bi(^0  sinCBgZ)  sinCOfgCgt)  -  Beae  sinCBgz)  cos(afgCgt) 


( 2c5iacrB  ^ jj 


00 

y  '  KjAio  sin(lii£yCst)  + 

(Bi  ,8a=o) 

aa  cos(M.i^Cit)j  (X5.?jyz)  Zojiiij^rJ  +  sin|]iij^ci  t)  + 

4^  cos(4i^Citjj.  .  Wojiii^r)  -  I^Bi^  sin(lij„c,t)  + 

(5'SaCat)j.  (ZGiiaj,].  Zo(li8Q,r]  -  kj^Bju  sin|jta(^C8t|  + 

{(^8a^8^)  •  I  4GBio 


cos 


64^  cos( 


SHEAR  STRESS 


ai3  =  -G  EE  {^1^09  cos(Biz)  sin(aiCit)  + 

0^1  jQ^a^o  A  Si  jBj^o 
AaaS  cos(8iz)  cosCajCit:)  -  sin(Biz)  sinCoriCit)  - 

A7g^^  sin(Biz)  cos(QfiCit)  I  ^(^JiKye®!)  (u’loB'')] 

Aq^0  cos(Biz)  sinCcyiC^t)  -J-  cos(9iz)  cosCOTiCit)  - 


(227) 
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sin(p^z)  sin(OriCjt)  -  sin(Bi2)  cosCor^c^t^* 

[®io6  sin(eaz)  sinCofaCgt)  + 

®3a0  sin(9az)  cos(Q'aCat)  +  B|^p  cos(9az)  sin(Qfa^3^)  ■*" 

B7cre  cos(Baz)  cos(Qfac,t)j  •  j^(k.l4o^g  “  s|)  Zi  (p'aaB'^)]  + 

sin(gaz)  sin(cirjjCat)  +  B4q,q  sin(3az)  cosCcVaCat)  + 


Biq^b  cos(Baz)  sinCOfaCat)  +  Be^g  cos(9az)  cos(Qf2 


-  G  ^  ^  k 

(9i  ,Sa=o) 


Ala 


infill  j^cit) 


Aa^  cos 


(M«iaCit:)j  [21112]  •  Zi|llij^r|  +  1^22 
cosjlii^Cit  1] 

:osjM.aaCat)j  .  [iilaz)  •  'A  (^*a‘'|| 


cos 


842-  ^'os| 


+  2.GA20f  ‘ 


(228) 
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APPENDIX  II 


GENERAL  SOLUTIONS  OF  STRESSES  AND  DISPLACEMENTS 
FDR  THE  CASE  OF  SEMI-INFINITE  LENGTH  COMPOSITE 


RADIAL  DISPLACEMENT 


u  - 


00  /  00 

2  ![ 


AayS  ®  sinCOfiCit)  + 


cjC)]  •  nij^g  JiCtiie^gr)  + 


A75,g  e  *  cos(ori( 


Aacve  e  sin(QfiCit)  +  Aac^g  e  ^  cos(airit)|  • 
M-iaB  Yi(M*icyei^)  -  sinCoraCgt)  + 

87(^6  ®  cos(cifaC5t)J  ♦  JiC^-a^gr)  - 


-3 


8ick6  sinCttaCat)  4  BecyB  ®  005(^30 


-BflZ 


^2  r'  “  830)1^ 


-1 


AXIAL  DISPLACEMENT 


w  = 


E  iX 

O'!  ^  61  ,3a>o 

7  2  - 

A7cye  ® 


—  -0  z 

Abo'S  ®  ^  sin(cvicit)  4 


(OrjC^t)^  X  pj^  'Jo(M'io'gr)  - 
[a6Q'0  e‘®‘^  sin(QfiCit)  4  Aacyg  e  ^  cos(QriCit)j 


(229) 


97 


NORMAL 


^11 


f-  -S  z 

3i  e  *  sinCOTgCjt)  + 

—  -F  z  1 

B7crB  ®  ’  cosCcyaCat)!  •  JoC^J^cyR^)  + 


Bicy$  e  sin(OaCat)  +  BscrB  e  cos(aaC2t) 


))■ 


'^o(M'8cyBr)?  +  A^q  +  2850 


RADIAL  STRESS 


z 

a  I  ,0^3  I 


III^bc^B  e  sin(Q'iCit)  + 

Bi  ,Fa^o 


T  2  , 

A7cyg  e  cos( 


(230) 


(Q-icioj  •  I'xef  -  (\  +  2g)  ui^gjjo  (niae'^) 


2GM.ic^g  {  I-  .9,  z 

+  -^•crB  ®  ^  sin(Q'iCi  t)  + 


Aeas  cos(OiCit)  •  UXSt  -  (^  +  2G) 


Yo(^^ia0r)  + 


2GM«ic^g  Yi  (M-i^ygr) 


-32  z 


+  Bs^p  e  sin(a2C3^-)  + 


‘6a  z 


B’^Q'B  ^  *  cos(Qf2Cat)j  •  62^  •  (p.2j,o r) 

(M-aas^)  1  f-  -3. 

iBaaB  G  * 


sinCaaCat)  + 


J 

BboS  ^  cos(aaC2t:)j  •  ^2G|^^C^g  Ba^ 


Yi  (M-ac^sr) 


M-aaai 


-  20(7^80  ”  f^ao)^ 


-ii 


(231) 
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NORMAL  CIRCUMFERENTIAL  STRESS 


■  tit  {[ 

cos(QriCit)j 


^6Cre  sin(»icit)  + 


xjfti  -  M-io^b}  '^oCMiof^r)  - 


2G, 


'M>i(ve 


t  [i«.  • 


T  “Bi  z 
Aec^g  e  ^  cos 


+  [^8^8  e  sinCCTjC^t)  + 


_  ‘Ji  (^^aae 

B7aB  ®  cos(»8Cat)|  |(2G8a) 


-Ba  z 


>]  [<^ 


Ba^yg  e  sinCtta'^at)  B«t^6  ®  cos(QraCat)j  • 


-  Yi  (M'aofgr) 

(2Gf=ia)  - ; - 


+  ZGffso  -  Bao)r 


-2 


NORMAL  AXIAL  STRESS 


^33 


00 

z 

Of,  ,Qf-2o 


^’aS  ® 


e  sin  (Cyi  t)  + 


01  ,03^0 


cos(aiCit)j  •  |j(X  +  2G)  -  X^if(ygj  UQ(M-ia0r)|  H 

j^Aacye  sin(QfiCit)  +  e  ^  -osCOfi  Cj  t )j  ’ 


(232) 
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•  j(X  +  2G)  01  -  YojM-iororj 

1^^600  e’®*^  £in(QfaCat)  +  e  cosCOTgC 

®8)  Jo(M'2aer)j  -  j^iQ^g  e  *  sin  (Ofjcat)  + 


-‘il  •  l< 


Beas  e  cos(QraCat^  •  [(2Gn,g^p  Bg )  ^(^^atfer)Jlj  (233) 


SHEAR  STRESS 


,^8^0  \Bi  ,9a^o 


-  ^SCrS  sin(cyicit)  + 


A-rao.  cos(CViCit)J  •  j(2iii^g  )  Ji  (^ii^gr)j 

[asc^S  sinCcViCit)  +  AscrB  ^  ^  cos(aiCit)j 

SinCaaCgt)  nr 

B7cy0  cos(Qf2C2t)j  •  |(^A|a9  +^)  Jl(^8»Ql')j 

jifl^a  sin(a3C3t)  +  Bag^a  e  cos(Qr2C3t)j  • 

■•■  bI  )  Yi  (m- 


K’^a?  ■*■  Ba )  Vi  (m.2qici') 


(234) 
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APPENDIX  III 


CHARACTERISTIC  EQUATION  (FREQUENCY  EQUATION)  FOR 
THE  CASE  OF  INFINITE  AND  FINITE  LENGTH  COMPOSITE 


The  frequency  equation  for  the  composite  of  infinite  and  finite  length 
is  as  follows. 


=  0 


where  i,j  =  1...6,  and  where 


<*11 

= 

^12 

di3 

= 

^‘14 

^ewi 

^15 

= 

0 

0 

= 

2'<  ®  ^1  (ill 

.e”) 

*^22 

= 

>  l^oel 

^3 

= 

^4 

= 

+  -^1 

(‘^aS 

^2t 

= 

0 

^2  8 

= 

0 

(235) 


(236) 


(.'>.37) 
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^32 

^33 


^36 


iiae  “* 


^41 


“42 


^'43 


‘^44 


^4  6 


^^46 


^cyB 


■'34  =  W, 


=  Ki 


lv6 


+  3  h 

=  3  ^ 

3  ‘fc  |  ili^g‘ 

=  (iia^g3 


ds;  = 


-3  Zojui^jaj 

^2yi  %  l^Yfi^i 


3=  +  k(\'‘'  +  2g'^^  ' 


I  iliag 


2G  Zi^.c  (S-ioB^)^ 


(238) 


(239) 


+>,''  +  k('.;-^ .  20'^'- 


M-icyP 


W. 


bl  '^1  cvS' 


Cl'S 
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dg3  = 


±ZG 


IL 


S 


Zo 


J 


^64 


±2G 


II 

iiaQ'B 


0 


i^aB®  ■ 


<^6. 


+>.^  f  +  kjx^  +  2G 


ll_ 


Zo(ihY6^) 


dej  -  2kG^^  B 

dfs  =  2G^^  Uij^g  p  W. 


d03 

=  -fc”! 

^2  O' 9 

“  8^' 

i 

1 

1 

“64 

=  4-0^' 

1-2 

•■U.gQ'S 

-  r2 

i 

"86  ■  ® 

Hi8Y6  "  ®  j  ^1  jsavB^ 


'e.  = 


(240) 


(241) 


In  the  foregoing  equations  (235)  to  (241),  ^  ilj^g  ,  ffiyi  , 

52y6  (defined  in  equat’ons  (63)  to  (66),  an(d  the  upper  signs  are 

for  the  case  of  one  end  free,  one  end  fixed,  and  the  lower  signs  are 
for  the  case  of  both  ends  free  in  finite  composite. 
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APPENDIX  IV 


CHARACTERISTIC  EQUATION  (FREQUENCY  EQUATION)  FOR 
THE  CASE  OF  SEMI- INFINITE  LENGTI!  COMPOSITE 


Tlie  frequency  equation  for  the  composite  of  semi- inf inite  lengtli  is 
as  below 


(242) 


where  i,j  =  and  where 

^11  ‘  \ 

‘^12  ”  U-icyS 

^13  ” 

^14  “  \  |'^2cyB^| 

^5  =  0 


<^16 

=  0 

(243) 

"  0'B  “■ 

jlj-l  Ck'3^ 

■^2 

9 

llQP  ”  n 

1^1  ctS^^ 

^3 

liiaS  + 

1 

*■'^1  ’►^2^3^ 

dp4 

^^lcv5  +  8'' 

1  Yj  |ii 

^sevB*’  j 

to 

=  0 

^0 

=  0 

(244) 
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•  •a 


B3 


r 

i 

A)  uan'3'* 

'^1  ['Jeo'B^) 

LI 

Uar/B^ 

"64 


\  (^2(yB^l  I 

^^Q'8''  J 


X^  3^  -  p  ^  +  2G^  '  ^ 


^ivb 


‘^D  hAlV^^ 


2G  Ux  y6  1  JJ'I  ^ 


^6i  "  '^2yh  ^ 


U2y6^  1 


^1  (u»av6^J 


^yb' 


dftg  -  2G  iHo-B  ^  ^1 


^63  - 

1— ( 

1— ( 
o 

1 

2 

lig  ^0 

-,1 
+  R"j 

1 

^ao'?.'*  1 

^64  = 

-g”| 

2 

U.Sci'S 

+ 

^65  "" 

-2G^u,Yi 

r  Jx  j 

lu-i  y6 

“1 

d-g  =  +G 


[1^2  y6 


+  r'^  J 


'‘^a  y6  ‘ 


In  these  equations  (243)  to  (248),  Ui^5  >  ^2'-y5  ’  “^ivS  '  M^yS 

are  defined  by  (72)  to  (75). 


(247) 


(248) 
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Equation  (242)_is  a  transcedental  equation  which  relates  circular 
frequency  %  to  0  for  given  physical  and  geometrical  values  of  con¬ 
stituents  , 

It  must  be  mentioned  here  that  the  imposition  of  boundary  conditions 
also  gives 


^0  ~  ^0 

^0  ”  ^0 


which  have  no  effect  on  frequency.  Thc^e  results  are  of  no  interest  to  us. 


APPENDIX  V 


SOLUTIONS  FOR  COMPOSITE  OF  FINITE  LENGTH 
WITH  ONE  END  (z  =  0)  FIXED  AND  THE  OTHER  END  (z  =  L) 
UNDER  AXIAL  PIECEWISE-CONSTANT  LOADING 


By  applying  boundary  conditions  (53)  onto  equations  (223)  and  (224), 
we  have 


and 


^(yfl 

^4C^R 

=  \0( 

=  Agtt 

*♦0; 

^2  y6 

C^Y^ 

I^y6 

%  Y^ 

II 

r* 

o 

II 

^3Y 

= 

^  ^20 

=  0 

^0  ^ 

Sbo  = 

^\o  +  ‘  1^0 

=  0 

(249) 


(250) 


Tlie  Fourier  expans  iua  i.'l  the  piecew ise-cons  taut  UincLion  1  is 


4 

TT 


L 


2n-l 


s  in 


2(2n-l)-t 


(251) 


t  ion 


Substituting  boundary  conditions  (51), 
(251)  into  equation  (227)  we  obtain 


with  the  ini  roduc t  ii.>n  of  equa- 
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v;here 

^2y6 


n 


00 


1 

2n-l 


sin 


2(2n-l)nt 

T 


a>o 


E 

e^o 


3^  + 


lAeat)  |(a“  +  2G”|e*  +  +  A*»B  [(a“  + 

zG^^je®  +  -  Biae(2G”S8»eej^(^gj,gr)  - 


BaafBl2G^^Mflfl(g@) 


os(3l)  sin(JU^) 


(252) 


Liicv'^  ’  ^2cvR  ’  1*1  y5  ’  *^aY6  moduli  of  'kiiQ,0  >  ''^2<yB  ’  ^iv5  > 

respectively  and  where 


2 


■ 

lea  1 

2 

-  1 

icil 

1 '  j 

. 

0" 


2 


yb 


1 


(253) 


^2y5 


- 


1 
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where  determinants  |Niij|  ,  |^^  |  ,  |n,..|  ,  |  ^  |„ 

are  defined  as  below. 

For 

“  l>***j3)  , 


= 

l^icyfl 

“i| 

= 

+3 

l^acyS^ 

■| 

3 

= 

+3 

|il2cyP^ 

(Li  )i4 

= 

0 

^6 

= 

0 

^21 

= 

i^io3 

ill  j 

^2  2 

= 

+B  \ 

[uaffS^ 

1 

^2  3 

= 

+3  Wj_ 

1 

i 

(^1  )2  4 

= 

‘  Y<)  ^ 

1  Uiy6= 

^2  6 

= 

z 

s-* 

|'‘^8y6‘‘ 

(^1  )31 

= 

e  w^ju 

^32 

= 

“Uso'P 

‘‘Q 

^'^sas^! 

t  / 

^33 

= 

■^So’S'' 

■  Wc 

1 

^34 

= 

-6  Zoj 

u'lye'’ 

^35 

= 

■^ayS 

^1 

^276^ 

j I  ,  and 


(258) 


(259) 


(260) 
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), 


41 


..II- 


(Ai)<a  =  +2^  I 


^4  2 


(Ai  >44 


‘-1'2  0'R 


+^G^^u,2Q,g  flk 


7  I-  .7!  .  ^ill^acfft^l 

■°r“®  I  w' 


'^O  ^2(70^ 


kWj^[LL2Q/^a 


^I2  cyS^^ 


aV  +  kl>%  2G^j^fY5  ZojaivS^]  + 


ZajaivS^' 


(il). 


45 


.pl- 

'^2^^  r. 


.  fl[w) 

UsvS-'’ 


(261) 


(Ax  ) 


51 


^^''^170  3  Wj^,^3a 


(ix)sa  =  -G^' 

'^l.-vS  - 

(0x^53  =  -g" 

[kaia'3  ‘  ^|'*ij 

^^1^54  "1^^’  ‘^iv5  jil.  ,.^a  J 

(^1)55  ■*‘^’  |^2v6  '  3‘'|  ^  |ll2v6"‘ I 


(262) 
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For  ,  the  elements  of  the  second  through  the  fifth  column  are 

the  same  as  that  of  »  and  the  elements  of  the  first  column  are  as 

follows:  * 

(^1)21  -k  Zj^(uiQ,ga| 


(%)5i  "  -2kG^^  ® 


(263) 


For  haiji  »  1^3  ij[  »  |^4>ijl  »  l^si'l  *  elements  of  the  second,  thij-d, 

fourth,  and  fifth  columns  are,  respectively,  the  same  as  equations  (263)  , 


and  the  rest  of  their  elements  are  the  same  as  the  corresponding  elements 
in  |Aiij|  . 


With  Ag^g  ,  ,  Bg^0  ,  Cg  ^  ,  defined  in  equations  (257), 

we  can  rex^rite  equation  (252)  in  the  following  manner: 
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cos  (31.) 


(264) 


In  this  equation,  3  ,  Uiag  »  Haag  ’  ‘^^yS  ’  '**Y6  determined  by  equa¬ 

tions  (253)  and  the  determinant  l-iil  (Appendix  III)  with  the  use  of 


(2n>l)n 


(265) 


where  n  *  1,2,3. . .  . 


By  the  concept  of  quasl-orthagonality,  the  coefficients  in 

equation  (264)  are  represented  as  follows: 


Agfl^^  cos  (BI*) 


-  T  j  (ir)  ^  /  [  /  ^  v5  ] 

■  '^o»  }  ''ll''] 'J'l* 


(it) 

Wo(^iaS")  -  %s  (2G“  iTac^gS)  ' 

•  ”^(yS  SaaS®)'^  ''o (‘j^8aS'')|  j| 

a 

^o(^^Y6^)  '  ^oiS  ^^3y6^)  ^o(^‘'aY60|  j 


rdr  + 
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4  /'[  2"  /  r'j[(xl^  +  2gII)  f  +  kx“ir;  J  • 

+  "^cre  [(’^^  +  2Gll)e»  +  kx“  • 

’*o(“ici(9'^j  ■  ^ofB  {2®^^  '**a0®) 

2o(^'’8ar8'^)  ■  **aa8®)  '^oj^aaB*')  I  (266) 

where  and  define* *  as  follows: 
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2"/  I  +  2g”)^  +  kX”  5;  J  • 

2o(s'i2g'^)  +  ^sS.  [(’^''  ^  ’ 

-  «aai  (20“  u's^gl)  + 

2o(laag'^)  -  \q|  (2G^^  Jaaga)  (i^aasr)  j  =  0  <267) 


With  found  by  equation  (266)  and  the  eigenvalues  obtained  from 

equations  (235)  through  (241)  ,  we  can  get 

from  equations  (251)  through  (263)  and  then  obtain  displacements  and  stresses 
of  the  corposite  from  equations  (223)  through  (228)  . 
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APPENDIX  VI 

SOLUTIONS  FOR  COHPOSITE  OF  FINITE  liNGTH 
WITH  ONE  END  (z  -  0)  FREELY  SUPPORTED 
AND  THE  OTHER  (z  -  L)  UNDER  PIECEWISE -CONSTANT  LOADING 


By  applying  boundary  conditions  (54)  to  equations  (223)  and  (224),  we 
have  the  following: 


*taB  " 

A>aB  ' 

A*a8  • 

^ofB  ’ 

Bias  “ 

®3Qr8 

®8<yB  ” 

®4CI'8 

Bio  “ 

B,  B 

Bsof 

^♦Qr 

Bio 

"'yB  ■ 

^Y6  ■ 

®Iy6 

D3v6  ■ 

D*Y6  » 

DiyJ  - 

Dxy  ■ 

I^Y  ■ 

DSy 

■ 

Dio  - 

0 

(268) 


^0  *  ®20  “  ^0  *  ®ao 


(269) 


The  Fourier  expansion  of  the  piecewise- constant  function  1  is: 


1  ,  2(2n-l)TTt 


(270) 


n.1,2,3. 


Substituting  boundary  conditions  (55)  into  equation  (227),  and  also 
introducing  equation  (270),  we  obtain 


n»l,2,3. . . 


00  V  00 


2 (2n-l)nt 


-LIE 


cr>o  \  Bio 


C,y6[(x^  +  2Gl)e»+ 
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r ^  jAi«B[(>''+  2Gnj3»+  kxii  hLb]  ■ 

”o('‘ia6'^)  ■*■  ®sa6  (2*’^"^  ^soB®) 

2o(uao(B’^)  ■*■  ®ia6  |2G^^  '^aaS®)  " 

WjjJtigijB’^j I 8in(8L)  sln(a^t)  (271) 

*  '^2y(i  .  inoduli  of  Uicr^  ,  ^2<yS  >  *  ^iyb 

respectively,  and  wf.ere 


^icrB 


y-lorB 


^lyb 


'^876 


.  02 


-  =• 

iC. 


-^  -  8* 


—  -  8-“ 


I)  ■■] 

a  •  ■] 


(:/2) 


and 


AsaB  “  ^:,9  “  “'aB  “  ®BaB  "  °  *^(*6 

8io  -  Dio  -0 


(273) 
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From  equation  (2^1),  we  also  have 


(D  »  U) 

(i  n 


2C2n-l)n 

T 


(274) 


where  n  ■  1,2,3. . .  , 

Substituting  equation  (57)  Into  equation  (228)  yields 


^01  “  *  ^o(  *  ^01  *  *  ^^Y  "  ^ 


(275) 


Applying  the  boundary  conditions  of  the  displacements  and  stresses  at  the 
interface  and  the  outer  surface  -  in  other  word^  equations  (45),  (46), 
(223)  through  (225),  and  (228)  “  we  obtain  the  Allowing  relationship 
between  coefficients; 


I^sijI 

*1(5(6  ■  ^et'd 

■ 

l^ji 

^1JI 

*»(»''  ■  ”'(vS 

^QfB 

®»O(0  “ 

K-.il 

|4aij| 

*ic»8  "  *^0(8 

^laB 

■ 

Kijl 

j^sij| 

*iaB  “  *^0(0 

|Nl0  1j| 

■  Aia6  “  ^oag 

A 

^Slj 

(276) 


where  the  determinants  l^ijj  »  l^ijj  *  ^  l^ij|  *  1^0  ijj  * 

l^snj  defined  as  follows: 

For  j  ,  with  i,j  -  l..,5  , 
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(Aa)ii 

-  uitfB 

(^3)1  a 

•  -  B  2i|53(^gbJ 

(£iaH  3 

-  -  B 

(Aa)i4 

•  0 

(Ag); 5 

*  0 

(277) 

(Aa)ai 

'  ffitfB  '^(i*iaB®) 

(Aa)ai 

■  -B  2i|irsa0a) 

(Aa)33 

»  -B  ‘'i(ff8aB®] 

(Aa) a4 

'  -  iiiv6 

(Aa)36 

=  +  B  Zi|iri,^5aJ 

(278) 

(^3)3; 

(^^2)3  2 

=  +  W’aaS 

(Aa)33 

-  +  Uaaa  ”o(“9aB^) 

^Aa)34 

“  -  6  Zo(u;y6^) 

(Aa)3B 

“  -  ^av6  ^o(^»V6^) 

(279) 

(A8)41 

-  +  +  2G*^)  UjobJ’ 

/  \  2G^^iri^gWi(tria03j 

''0(1*1  a8“j - a 
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(a,)4,  -  -  20^1  -  B  [zolHwe^l  - 
(Vo  -  * «o(f»u6^  - 

(.,)o  -  -  [xV  .  k(xX  .  20X)-,^^] 

0^).:  ■  +  2Glira^B[z„(ir,^a)  j  (280) 

(^a^Bi  “  M'ljygB  ^  ('*8(»B®) 

(tabs  ■  +  cXXjk  ixlag  -  8®)  ZiJiTa^ga) 

(taha  -  +  <3“(k  -  6®)  Mi(i,^ga) 

(Aa)64  •  -  (zgX  uj^  B  J  Zil^i^ja]  k 

(^a)58  •  -  C’^fk  ir8*Y6  -  0®)  Zi(u8Y5a)  (281) 

For  l^ijl  1  the  elements  of  the  second  to  the  fifth  column  are  the 
same  as  that  of  [^2ij|  elements  of  the  first-column  are  as  follows: 

(Ne)ii  *  iliQ'B 

(Ni)3i  -  -B  Zo(uiaea) 

(N.)«x  -  -f  XXb-  +  k(\XX  +  2gXx)  Wae]zo(jiaR«)  + 

(Ni)6i  ■  2kG^^  UKygS  (282) 
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For  1^7  ij  I  ,  |N0ij|  ,  (N9ij|  ,  and  |Nioij|  »  elements  of  the 
second, third,  fourth,  and  fifth  columns  are,  respectively,  the  same  as  those 
in  equation  (282),  and  the  rest  of  their  elements  are  the  same  as  the  corres¬ 
ponding  elements  in 

With  defined  in  equations  (276),  we 

can  rewrite  equation  (271)  as  follows: 

^(ir)  “  *  S  +  2gIi)b“  +  ili%]  • 

Zofu’aS'^)  2G^^)b2  +  u:f£^0j  • 

2o(i‘806'^)  ^aB  (2°^^  iiaaB®)  '‘i  ”o(‘‘2aer)  |  dr  + 

2Tt y  r  I  +  2gI)b®'+  k>.^  ' 

^o|^Iy6'^)  “*y6®)  ^o['j’SY6'^)}  sin(BL)|  (283) 


In  the  equation  above,  8  ,  UiaS  ,  UaC^B  ,  y6  »  ^*8^6  ^re  determined 
by  equations  (272)  and  the  determinant  Hijl  '^ith  the  use  of 


(284) 


where  n  *  1,2,3.  . .  . 

By  the  same  approach  taken  in  Appendix  V  of  this  report,  the  coefficients 
AlckS  equation  (283)  are  represented  by  the  equation  which  follows  on  the 
next  page. 
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*  I 


kiQi^  sin(3L)  ■  -  ^ 


I  ^ 


rdr  + 


2"/  [  /j»ij,B|j[xI+  2gI|b*+  k). 

Zojilivei  "•  “‘OOB  (2°^“»Y6b)  Zo(5av6^)  j 
^  (2^:1)  2"/  [  /”  2gIiJb»  +  kxii  • 

2g“)b*  +  kXlI  ufj  . 

***  ^70^3  |2G^^  U'2a0^) 

^o('j^3aB'^)  ■*■  ^ae  '^aae®)'^  ”of“8a6’')|  '"‘‘'^j 


rdr  + 


2 

X4 


xl^“  [zn/"  j  +  2G^)®*  + 

2o|w'1y6*'|  ■*■  ^OqbI^G^  2o(u2Y5rj|  dt*^ 

2of^^ic.0^)  +  +  2Gii)e*  i-  k).“  uf(,ej  • 

”0(^1  »S’^)  +  “’cB  K'  Ja«6  ^  )  • 

^o(^acyB^j  +  Meae  ^ 


+  Mb^b  (2G^^  U'aaP")  ^©(‘^scyB^) 


dJldrli  (285) 


i 
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where  X3  defined  as  follows: 


o 


+ 


MiOc,e  (2°^  5»Y6®)  M'*»y6")|  * 

Mioai  (2G^  ila;^!)  Zo(l8:^^)|  *’^‘j  * 

X**  A  [2^”  |[(>-“  +  2GIi)b*  +  kx“  il*„6]  Zofaiasj 


H!«6  [l>"  +  2g")b*  +  k/.II  aic,B 
»’aB  (2^=“  ^a«e®)  2o(^2a9>^)  - 


WofccB'^) 


+ 


Meas  (2®^^  u^saS®)  ”of‘*saB'') I  * 

2"/  I  [(>^^  +  2g“)i*  +  k>.“  uf^j  + 

«»0fB  [(■'”  •*•  2G”)i®  +  k'-“  iTf^e]  "■ 

^feorl  (2^“  !r,2|B)  W„p2^r)j  r’drldr  =  0  (286) 


With  found  by  equation  (285)  and  the' e igenvalues  obtained  from 

equations  (235)  through  (241),  we  can  get  A2^3  ,  6-^3  ,  Bg^q  ,  ,  and 

and  from  equations  (?76)  and  then  obtain  displacements  and  stresses 

of  the  composite  from  equations  (223)  through  (228). 
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■] 


(288) 


and 


*»ofB  “  *««e  “  ®’0(S  ”  ®*flt9  “  ^’«8  ”  D7«e 


(289) 


From  equation  (300) ,  we  have 


2(2n  -  l)TT  .  _ 

— 5 — ^  “  ^n  *  n  *  1,2,3... 


(290) 


Applying  boundary  conditions  of  displacements  and  stresses  at 
interface  and  outer  surface  (equations  (45),  (46),  (229)  through 
(231)  find  (234)),  we  get  the  following  relationships  between 
coefficients 


Bscr^ 


BfcrS 


^876 


^cra  Aeore 


AscrB 


MaOfS  Afg^3 


M4Cr8  A«y3 


Mgcrp  ABQf0 


(291) 


where  determinants  |Niij|,  |Nfij|  ,  iNaijl,  i  j  1 1  |N5ij|i  and  l^ij 

are  defined  as  follows 
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For  Aij  (l.j  -  1,...,5), 
hi  “  Mijfg  Yx  (iixofB 
^it  “  *0  h  OhflrP  b) 

Ax#  ■  Yx  (^Axor^  b) 

Ai4  -  0 

Ai#  -  0  (292) 

Af  I  *  M'iQf3  Yx  (M-icre  a) 
ht  “  -i*  Ji  a) 

Ai#  *  -F  Yx  (M«flr0  a) 

"^4  -  -^^xyA  Jx  (Jh^A  «) 

^6  “  F  Jx  (M»y6  «) 

A#!  “  3  ^  (lhcr3  ®) 

Aa#  *  Jo  (^^aa3  a) 

Asa  «  ^  a) 

A34  »  -F  Jo  (M-iy^  a) 

Ass  *  M«y6  Y5(M«*y6  a)  (294) 
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# 


S4« 

^44 


^3 

Ibi 

^63 

^4 

^6 


+  2G^^H?aBj  ’4)(t*i»&  a)  + 

2G^^  ^^lorp  ^1  (^lOfp  ®) 


2G^^  M«Qr3  3  1^  Outers  a)  “ 
2G^^  tisaa  i”  fife  (»*«aB  a)  - 


Jl  (M«a3  a) 
^901^  a 

Yi  a) 

i*acrg  a 


-[x^  p  -  (x^  +  2g\W^' 

2G  M'1y6  ‘Ji  a) 


Jo  (i^iY6  a)  - 


-2G  ^iaY6  ^  (>^tY6  a)  - 


Jo 


Ji  (>^3y6  a) 


> 


2C^^  ^ICf^  i*  Yi  a) 

{^*»QrP  +  0^)  Jx  (**3Qf3  a) 
^»cra  +  3"*)  Yx  (H8a3 
-2G^  M'iyS  0  Ji  (^^XY^  a) 


G^  (^AaY6  +  0^)  Ji  (^9yt  «> 


(295) 


(296) 
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For  l^ljl  f  elements  of  the  second  to  the  fifth  column  are  the 
s<ime  as  the  corresponding  ones  of  ,  and  the  elements  of  the 

first  column  are  as  follows 


)f i  ■ 

(Ni  hi  ■  Jb  (^^icrB 

(Ni  >41  ■  ^  ^  Jo  (M-iflfB  a)  - 

a 

(Ni  hi  ■  -2G^^  h  Ji  a)  (297 

For  |^ij|*  |^ij|>  |Nifj|>  j^ij|»  elements  of  the  second,  third, 

fourth,  and  fifth  columns  are,  respectively,  the  same  as  equations 
(297)  above,  and  the  rest  of  their  elements  are  the  same  as  the 
corresponding  elements  in  j  . 

With  ,  Bsc^3  ’  ^ccrB  >  defined  as  equations 

(291)  to  (297)  ,  we  can  rewrite  equation  (287)  as  follows 

¥(5;r-r|  -  -|E  s.«  {[I^”  ♦  ■ 

Jo  jjx^^  +  2g^^)p  *  - 

”  ^crB 

Jo(^*tQfB^^  "  ^3Gr0  j  ^  + 
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+  2n 


JoO*XY6r] 


Mfag  (2G  k4,Y6e|  J6(M«Y6'^)p'^||  (298) 

In  this  equation,  8  ,  ^ll^p  ,  tJ«e,g  ,  1*1^6  ,  t*tY6 
determined  by  equations  (288)  and  the  determinant  |dj^j|  (Appendix  IV) 

With  the  use  of 


.  2I2n.r..l)"  ,  n-  1,2.3,... 


(299) 


Using  the  same  technique  in -the  representation  of  a  function  Into 
a  nonorthogonal  eigenfunctions,  we  get 


Jo(Miy6^)  -  Maor0  (2G^Mni<y6  3)  Jo(P«v6r)|  rdr  j  rdr  + 

^  2G^^)P-  Jo(t*l«er)  + 

+  2g“)F“  -  x“n?tte]  Yo(tiiaer)  - 


Yo(t‘iaer)  - 


^•cr^j^G  M«Qf3  3)  Jo(M'fCf@r)  -  3 


Yo(M-tQf0r)  \  rdr  rdr  -f- 


A.  +  2G  ^  Ml*y6  ‘Jo(Ml'Yfcr) 
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Mi«p|2G^tifY6  Jo(^‘*Y6r)j  dt'j  rdr  +  x5j^  jilt  + 

2c“)?*  .  \^V?orpj  Jo(l*i«er)  +  Mi»e  |\“  +  - 

^fo(^haer)  -  MKrelZG^We  Fj  Jo(t*tflr0r)  - 


fiae  (2G^\i,«e  S')  YoOi»«er) 


where  Xi  and  Xt  deflnt^d  as  follows 


dr‘jrdr| 


(300) 


^  r|  2nf  H4«B  +  2G^|1*  -  ^Vf^aJ  Jo(t*iY60  * 

rdr  •  2tt  ^  2Gj§f  - 


*Io(»^lY6r)  -  Msgrfl  (2G^M«y6  &j  Jo 


1") 


+  2G^^)3^  -  'Jo  (M-ia^r)  + 


Miorp  +  2G^^)3^  -  Yo(^^ia&r)  - 


MfQf3  (2G^^^af0  Jo  (Pfcr^r)  -  tha^ 

^  rdr  .  2tt  jT  .  ||\^^  +  2G^^|P  -  Jo  (^il^r) 

2g^^|£*  -  ^^V?af3|  Vb  (^AlOfer)  - 
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In  the  equations,  Oj^,  £>  li  5.  indicate  the  values  that  are 

different  from  that  of  or,  0,  8,  Y»  respectively. 


(301) 


APPENDIX  VIII 


EVALUATION  OF  AN  INTEGRAL 


In  this  appendix  are  given  the  details  on  the  evaluation  of  the 
integral 


/■  co8(?*)  Sin  5  - - - 

_ '  1  ynvs 

o  ?(l  +  bY)^'^ 


(302) 


taking  into  account  the  development  in  series  of  sine,  equation  (302) 
can  be  written 


T(2,t) 


^  («*»■•  ‘  .  (l  +  Vst 


<i5  (303) 


On  the  other  hand^  using  the  identity 


s’"  ■  E 


V  -  (-1)''’^  b*®'' 


equation  (303)  Is  expressed  as 


T(z.t) 


at\*^  V 


^  (2V  +  1)'.  ^  ^■’^'*(1!)/  /  ^r*f%(vf2)-(i  (30^) 

V-0  H-0  ’  '  0  (I  +  b  5 
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The  following  step  Is  the  evaluation  of  the  Integral  that  appears 
In  equation  (304) > 


cosSz  d$ _ 


(305) 


for  which  we  need  to  solve  the  complex  integral 


00 

/ 


iUz 


dz  = 

(  a  .  aln 

a  ^  a) 

|a  +  z  ) 

0 

a  +  z  J 

(306) 


where  z  Is  now  the  complex  Independent  variable  and  and  a  are 
constants.  Through  development  In  the  factors  of  the  denominator, 
we  obtain 


I 


Uiz  , 
e  dz 


(z  -  la)"  I  -f 


z  -  la 
21a 


(307) 


taking  Into  account  that 


i^iz  -y^a  iMi(z-ia) 

e  ■  e  e 


ia) 


r 


equation  (307)  becomv.-'s 


I 


I 

(z  -  ia)” 


00 


z 

npO 


(z  -  la)”*^  1^“ 


ti^Cz  -  iaf 


(308) 
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By  introducing  equation  (311)  into  aquation  (304),  we  finally  obtain 
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APPENDIX  IX 


COMPUTER  PROGRAMS  FOR  THE  DETERMINATION  OF 
EIGENFREQUEICIES  AND  WAVELEN3TH 
IN  A  COMPOSITE  ELEMENT 


f  I  aH  '  Nu  T  !  # 


""commontbosl  /wgnti'jrnr;!  min!LTrf;i7n - - 

COMMON /MU/FNU I A6«  rMJJABi  FMUtOO*  ^MU|OD 

"COMMON/ 1  - - - - 

COMMON  /  !NNur  /A  I B  «61  tCt  t^LAMOAl  •PLAMO^iBETA  »yETA|^»CMIBAtOMEOAlO 

"‘COMMON /tfAY?(ffX;n»XflTlT .  ' 


COMMON/COf  r/ AIAB I AA  AN  *RTABiBlAB*OftO  *  DTOO 

"■oiMYNVfAij‘‘<rrr«‘;E‘i%“ieiiwfTrr8OT 


OfMrNSfON  lllAt  _ 

”  F  o»i  t  vALFNcrrwurvrr-rwrnrr 


TT 


"BEAo‘T4y.‘VF;‘E;YivET;iwT;mi7*Hor;irow;F^^^ 

l  tFKUiFKll 

“Ne4b"ywi:‘;‘fYnr - 

_OA  FONMAmFjOill _ 


_ AFIO*.. 

■WTo^RITTimrTT 

701  FONMAT<9r5» 

J  ■  0  5 


JFLAG  •  I 
oWf  fTi  Vd"  V"  rW^T.  a"*  V  'dWFYi""" 
fl  •  A  *  AQNTF(  l./VD 


“FrAMOAi~  cr^-FFiDi7inT7?wuiT*Tr."T; 

FLAMOA?  >  E2*FNU2/ni*4rN02»*n.-?. 

“Gi"»"iEi7?‘2‘;vr*uVFNurn  r  "d? 

CXAPFAI  •  pi  •  A«A 


T?fwm - 

•FNU2M  _ 

^■T2"/Tr*‘«Tr*‘AFNurrr 


r  X  A  R  F  A  ■  p  r  V  n  •  fl  ■ '  ‘J  ■  ■  "c  Ya>"e  A  f  ‘ 

C  I  ISO  «f2.Til*FLAMr)An/RM01 


C  f  2SO  •  2.»r,?4FLAM0A2l/«M02 

JC.JU.JP  •  gi/rmo]  _  _ 

C  fi2So"  •  G7/RM02 


■'*^RI  Nf'eoor  aV'H  VT2‘r’B7‘FNU77'FNU2'rVF'r0lV'G2V*FL«*'RH0T«‘RMO2“»‘ 
*  FN>  «-LAMBAl,  FLAMnA2f  QMgGA »  TCL _ 


600  FORMATOHIA  fF20  .S.  lOX.AMFl  .FIT 
...  • .  iMOfl  .F20.A,JOX.6MNU1  »F17 

*  Vmovf  VF2o.Vi  roViAMcT  ■”T”rr’iy 

•  'HOL  .FJO,S,10X.6MPHO  1  fFl? 


3H0N  f E20. S. lOX f 6MLAMDAT tE 17 
6MOOMEGAfE17.5.  /  »6H0T0l  fEl7 


,'S.10X.6HE2  fEl7.S./» 

.•SflOX.6HNU2  »F17,St/t 
isTl  OX  ,6MG  "2  '  fEYT.sV/.*' 
.SflOXfAHRHO  2  fE17.S«/« 

.Vi  Vox .  6ML  amoa2;c  1  tVV./V 

5.  /  «»M3  J.7X.6MBETA  .UXi 


5M0ETRM.10X.  HHFMUIAB  <H2  »  »9X  .  UMFMU2AB  ( K2  )  *  9X  «  1 IHFMU I  GO  Vh  1 T 
.9X.UHFMU2GD  «Xn»  /I 


2  call  matrix 


CALL  NWMATlNV«CN  BB «  SCRATCH.  6«  6.  0.  OETRM.  lOET) 


IFI lOFT  .FO,  01  GO  TO  20 


20 


.AQJL 


J  •  J*J 

PRINT  60 V»  ■  Ji‘ BCy A’'V'0rtRMV‘  VfmuU V 
■EgRMATllAf  2£17.Bi_A(  E17.7*  A31.  / 


*  IMAGMI*  I«l«At 
-i _ 


_ .c 


. 

CALL  ROOT  IbETAt  DETRHi  TOL •  DELTA 


f  DIFFi  JJ«  JFLAG) 
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tr{jj)  7n«  nOi  tf 
7n  Af)2  f  Ofl  Tp  I 

A02  lox*  iroHifNArroMS  bivcftoiNO) 

•  f  F r I  7i T.  fTFm  CO  Tft  9 

P*  I N T  AAA  ♦  ..(!}F,T A  , .PJ FF. _ | _ .PQ  JJ). J. . . . 

A  A  PfftNT  APA*  P.tTA«  pfFF 

40A  FOPMAT(//;‘’7M‘BiTi  ‘•TnY;#'#  iiriVf»r6‘iW’vrei7‘*i  f 


CALL  MATPIX 


ff  ■  ) 

00  OP  1*1 «A 

'  fFi?  ,F6V*>Tfid“fd“fo‘* 

AO  J«>tA  % 


ccditjji  «  cn*j) 
AA  CONTINtJf  _  _ 

■ppffTi  V“-fi  fVi‘» 

II  ■  1!  ♦  1 

op'rrtNTiNur . . 


FM  AAR'VpOnV 
FM  TAR  -  Rn(2l 
FM  RAR’"i"'RRT1T 
FM  OAR  ■  RR(A} 
“F M tOAR  •  RRiVl 
PBIAI  •  U 


TEST  •  l.F-A 

LIM  'm  pn . .  . 

call  SIMCONI  AtP*TEST*L!M*ARtA2#NOI2tR2#F?| 


CALL  SIMCOM(0.fA»TEST»LTMfAREA3*MOI3«R3tF3) 


ARFAl  ■  P|*m?.*FMUl*FKU/ni,«>FNm  )*(  1,-?.«FNU1  )  »  »>  1  •  I  *F  1 -A** ? 

*  +1 1 2. •FMU2*Fni 2/ C 1 1, ♦FNU? I*!!. -2,*FNll?l  n ♦1.1  •E2*IR**?'*A*»? I  ) 

'  'A3AP  •" -AREAi7ri7R7V2VARFA3>VsYNF7BFTA*FL')T . 

_ flB«.6.I_i_A3A^ _ 

print  A0A*lRR<ll»j«1f^itA3AR 

605  FORMAT  r/f'OM  6A0 •  »C26r5t'l6xT»*M'’fAB'»  •*»E20. 5  » I  OX  » 'M  RAB  ■'»E20,S. 

•  /«'0M  9AB  -• »E20.5»10X»(M10AB  •> tE70.5tl0X • *A  3AB  •««E20.5) 


A  A  ^  R  ■  FM  AAR  •  A3AR 
“rTAR  •  FM  TAR  *  A3AB 
RRAR  ■  FM  RAB  •  A3A6 
C3fiO  •  Fm"9AB'7*'aVa'b‘' 
OTGO  *  FMIOAB  •  A3AB 


1..F.N*?. 


f*!*"  ^TPVAVF 


r 

r  CALfULATF*^  r)f f.PLACFMFNT  AND  ITNFSftFS  IlftlNA  CON.^TANTf 

r  nMTAiN'D  py  pnadpam  swavf* 

r  . ; 

COMMON /rnFF/A1An*A«An,ATAA«AAAi«C)fiD«D70D 

COMMON/ tNPUT/A.H  *01  •rJ|«FUMOA^«FLAMOA2•BeTA•»ETASOf  OMEGA  tOMEOAftO 

COMMON/ |MAG/,Sfr,NU )  >/MAGI4) 

COMM0N/MU/FMlllAn»rMJl2AP,^MU*f<^*0»FMiilfl0 

rOlilVALrNCFlS!fiNIHtitQNilWStGNI2ltilflN2>t<S/fiNm«SI6N1NCSI6N(4 
\ )  ,4  IONA r 
no|Mt  *»i 

91  FOPMATUHU  . .  .  ■ 

PFTAA0«AFTA*«J  _  _ 

«9«  COMTIM/F  . 

PFAO  _ _ 

T0>>O9MATI>rT5.91 

|FIF0F,901  990.940 

AAA  9T0P  ”  ’  ’  *  — — — — 

040  comtinhf 


|F|P,r,7.A»f,0  TO  101 

c  ■  ■"  ■*“ 

C.  CALflJLATF  Twf  NfCFS5»APY  BESSF^  FliNCT  IONS 
r 

;iM}r,o«7.i  (FM(pir,o»p,‘;ff,Ni»» 

nM;r,r>«zriPMU?r,o»PV<rf«NA) . . 

__  / 0 M Ki n«zo fFMition* o.<;t ch aj _ 

;oM?r,o«zo<FMii>r,n«p.<irGNA> 

C 

K|lSUPl*-(C9G0«SfGNV«rMr(TGn*ZrMir/D . 

1  -r)7GO*l3CTA«ZlM7Gni»SlNIOFTA»Z  > 

C . 

_ _ XMM>Pi«(r‘«Gn«BFTA«/nHir,n _ 

r*  ♦n7r,n*FMtf?r,o«ZOM'7fro>*CO<;«RF’T‘A*Z » 

r . 

. . .  5 1  isiipYi-‘<  c icoiVi  F lamoaV»bet Aso^s i gn i •  i  flamoa  1  ♦? . #0 n  • 

1  FMUlf,0«*2l«ZOMlf,n 

2  "  '”-<7.»Gl*F"MUir,r)'*s'lf,N9T/R«ZlMlfiD» 

_ 1 _ -0700*  <  2.  *G1  •FMUZGQaPFTA  >  •  I  ZOMZGO-Z  1M?GD/  ( FMU?G0»P  » » 

A  »«SrN<RFT'Aiz  > 

c  .  . . . . 

S  ?  2  si /P 1  •  -  <  C  7  GO •  »  FL  a'md'a  i  *  (  S I GN 9  •FM u  1  GO  •  •  2  ♦  P F  T  A  so  )  •  Z  OM 1  r,0 

1.  . ♦2.»Gl*FMUlG0».SIGN‘1*ZlMir,n/P) 

2  . '-n7Gn»Vr2”.VGl*R>T’A|VnM2G07P)  ” 

_ 3 _ _ 

c 

S33SUP1.«-<C'^G0»HFLAMDA1*2.*G1>«RFTAS0^SIGN3«FLAMDA1*FMU1GD««2 
1  •ZOMIGO* 

?  .♦n7Gn*<  ?.«Gl«FMi;2G0»BFTA>»Z0vi?f,n 

1  »».SIN(RFTA*Z  » 

c  _  _  _  _ 

SnSUPl«-IC^GO«<  2.»SfGN‘S*Gy»FMUlGn«BETA»»ZlMlGr> 

*  1  ♦07GO*G1»ISIGN4*FNU20D»*2-BETASO»»21M2GO 

2  )aCOSIBFTA*Z|" 

C 

r 

DPiMT  j|05^,p_,j: _ 

opTWT  AnA.xil.siiPi  .y  iisop] 

A04  FOPMATM  XI  \  FIBFR  ■  ‘FIS.S.SX. ‘X I  5  FIBER  ■•.ElS.S/l 
PRINT  8  0  7  .  S  i  1  SUP  I  .522  SUP  1 .  S  3  S'SUP  I*  S 1 3  SUP  I 

c _ _ _ _ 
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TO 

101  rnuTiNiif 

<* 

r  nn  THiMn  rn»  •r^tN 

r 

;1MIAP«11  (rMlJU^«^.»fONl  I 

;  . 

C  . . . . 

W|M?AA«W1 (rMU}AA«0«ft|AN91 
WAm:  AM«WO(rMij)AA«t  *510^1 ) 

Wn¥>AA«Wf>irM1|>AA«A,%|AN>) 

c 

XnSUP^«-<A1AA»SlGNl«FMUlAA«2lMlA6 

1  '«A4MA*FMij1AP«W1MUA-A7AA«AFTA«21M2AA 

2  -AAAA«»FTA*WlM2Ani»5lN(AFTA*ZJ 

r 

X  A‘lAA»ArTA»2AMlAH*A4AA*Ae‘TA»'^'>M^  AA 

1  ■■  ♦n7AA»FMil2AA«2AM24A*AAAA«St6N2«FMI»?AA*WAM2AA) 

? _ •rnSIAFTA#?) 

r  -  - 

SnSUPi^-U-^AA^f  (FLAMOA?»BeTASO^SIGNl®IFLAMDA2*2,#G?»»FMuUR»*2 

1  |•ZOMlAA-2.•G2•FM^llAA•S^GNl•ZlMlAR/R^ 

2  ♦A4An»<  IFLAKnA7«BETASO*.SIGNl®IFLAMDA2*2.»GZ|®KMlJlAA»®2 

1  . . )»W0M1AA-2,*G2*F»<I»1AA«W1MUA/R» 

4  -fl7AP«<2,»G7«FMlj2AA«AFTA  l•IZOM?AA-ZlM7AP/^FMll7An•R^  I 

*  ■  ^  'AVaA«(2V«G2«FMU?AB*BETAV®(S1GN?»W0M2AA-W1M?AA/(FMU?AB®P) 

A  n«SfN(AFTA»ZI 

C  . . 

SZ2SUP2*-JA7Ap.».:tf  ’DA?*ISIf.Nl»FMUl  AB«-?*flETASO»«Zl>MlAR 

2  .■2,®G2»pmiI1AB»SIGN1«Z1  M  lAB/R) 

. 3 _ ♦AAA  ‘^_®  A  ?  •  1 5  f  GN 1  •  F  M  yi  A  B  •  •  2  ♦  A  E  T  A  SO  » •  WO  M 1 A  B 

. 4  ‘  ♦2/»G7»F“MUrAB«WlMl’AR/R» 

5  -B7Afl*f  2,«r,2*flFTA#ZlM2AA/R) 

6  -RAAB*'<2.»G?*BFTA*W1M2AB/R)  )  •S  IN  ( RE  T  A»Z  ) 

r 

S33SUPS-<A3AB*I  (FLAMPA2*2.»G2»»BFTAS0^SIGNJ«FLAM0A2«FMU1AR»»?  ) 
. I _ •Z^'^lAB _  .  

'  ''  2  ♦A4AP»UF'LAMnA2'+2’,*G2»’«RF"TASO*Sir,Nl«FLAMnA2»FMUlApi»?) 

■%  . •wn^l  An .. 

4  *  ♦B7AR»2,»G?»FM|j7Ar.»BFTA«20M?AR 

^  I.GN2*r,2»F_MU2AB«BFTA«wnM7Ap 

A  '  '  »»A|NIArTA*7 I 

s  13  slip  ?  *  - « A  Va  n V zT^T  i  g'n  iVcz  *  fT^Tab  ®pfta«zimiar 

1  ♦A<,AB*2.»ri?*FMUlAB*BFTA«WlM)AB 

2  ♦■b7AB*G2*«SIGN2»FMU2'aB**2-BETASO»»Z1M2AB 

3  ♦B8AB»G2*  J  SIGN2*FMU2AB*«2-BETAS0) •WIMZAB 

4  '  1  *r6scPFTA»z  i" .  ’■ 

r  _ _ _ 

r  ‘  ' 

pptnt  pfamlt<;  from  rfsin  . .  . . 

POINT  Rn^«R,f 

BOS  format (//2ux« •  R  •  '.FIS.B.SX**  Z  ■  •  .F  1 5 . 2/20X »42 U H- )  .//) 

OP  I  NT” A OA  1 X  I  I  StlP 7  * X  n SH02 

BOA  FORMAT!'  XI  1  RF5IN  ■  •  *F1S.S»SX« 'X ?  3  RFSIN  ■'.FI?, A/) 

PRJ  NT  807 1 S IJ.lUPii S22^^UP,2 ♦  S3JAWP.?.*S  1.3SUP2 
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t 

t 


no?  nfWMATI*  AIf.MA  n  AtftMA  ??  •••rM 


rftNTINHf 
An  Tn  MA 
rHA 


puNrrinN  AFxtAMr.iAiriAii 

c 

r  CAlH/LATFS  J  AKf)  V  OF  ABO  IF  SI6N»l* 

r  CALniLATFS  I  AND  K  OF  ABG  IF  SKiN«*l« 

<■ 

OiMFN.SrON  ANSI?) 

c 

ENTRY  l\  - - 

C 

IFISIGN)10.10.20  ..  .  . 

call  GESSELlARCMliANSiltO) 

RCX«ANS(2I  ...  . .  .. 

•FTliRN 

10  CALL  RF.SSFL(ARf..'r.VNSt3Vo*) 

BEX-ANSI2).  .  ...  . . . . 

RETURN 

ENTRY  20  . . . 

IFI  <i!riN)  ■'O.'^O.AfT 

CO  call  «F.S<iP-LIAflO#l*ANStl  .0)._. . . . 

RFX«AN.SI  1  ) 

RETURN 

C 

30  call  RE.SSFL(ARG.i.ANS*.3*0j _ 

REX -AN.?  I  1  ) 

RETURN  .  . . .  ..  . 

C 

FNTRY  Wl  . .  . . . . . 

IFls'Mr.NIsn.SO.AO 

60  call  9ESSEL(ARGtLfANS.2*0) _  _ 

REX-ANS(7) 

return  . . - -  -  - - 

C 

50  CALL  BFSSELIARG.I fANStCtO)  . . 

RFX«AN.SI  ?) 

RETURN  .  _ _ _ 

C 

ENTRY  WO  .  .  . . 

C 

IF(SIC.N)70f70f80  . . . 

70  CALL  RF.SSELIARGf  l.ANSt2.0) 

REX-ANSn.l - 

RETURN 

c  ‘ ..  .  ..  .... 

RO  call  RFSSFLlARGf 1 .ANS.C.O) 

BEX-ANSID 

RETURN 
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riJNCTtON  Fl(»l 
r 

COMMON/ 1 NPUT  /A  * B  «ni  t r>9  tPL AMOAl  tPLAMDA t •  BETA iKKT AftOtOMCttA •OMC^iO 

COMMON/MJI/PMUIAB.  fmiHUt  rMUtOOf  PM»;jfCO  _ 

*  C0MMON/MlJSO/SorMlAABt‘S0rt<0fAlf7Sftf#W0lC0i5OrM0M0  ** 

COMMON/nATA7/C«ANFAt  .CXARlfA? 

COMMON  / 1 MA6/S  t*(SNT‘«  's  I  I  6naVi  mao  1 4  r . 

COMMON/MAT /C  (A  *4  }*M6AAiM7A(l*MlABfMfA0«M10A||»A|A0  _ ^ _  ^ 

type  BEAL . •M4Ar;«Wfm¥Sfei;W^^  . . 

_ _ _ _ 

DATA  IPf  ■  ^•]41B474BB{ 

r  _ 

r  . .  "  "  . . 

PI  ■  i./Pf  _  _  . 

PETUBN  . .  . 


FNTPV  jrjj _ 


TP(»  .ro.  o.nt  rn  rn  70  _ 

“ABn  ■■FMiiUPtR' .  “*  * 

Apr, 7  ■  rMH7AR«R 
‘fF<<i6Nl  .‘lt,  n.njnn  to  1 

CALL  BF.SSFL  <APr,l  .O.ANSZfltOl 
FF2  •  (FLAMOA?*?  .•f,?  i  VBFTA$O^FLA‘m6Y}V^FMU1A8' 
CALL  B€SSFL<APr,l,0,ANSW*2.0l 

FF2  -  FFy'^  riNS?  ( lTiMAA*A*A»fSW^fni . . 

on  TO  ? 

C  ALc"^F  S^TTT  APfTT  »  an3ZT^|*o)  . . 

CALL  BFS^FL ( APOl ,n,AN5W*4«0| 

>F2*  -  •FF^r'*‘'f'AN5zri  v-v6W*?!7»iN5W‘rni . 


■  “  f F « s  r r,N2 *  .L  f ,''rt Vo )  on  TO' Y . 

7  FF  ■  7,«r,2«PMII7AR»flFTA 


CALL  BFSSFL<Aer,2,n,ANS2#l#0) 

. C  ALL .  B/MFLj  APr?...n » . . 

FF2  •  Fr24PF»IM7A'p*MAA«» . 

GO  TO  4 
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/nr.S-'jL/^rsrjPi  n?*?*%\*  bessflyi?*?.'^! 

COV‘’ON/ jNniJT/A.n.r»l  .f,?.F».AMOAl.FLAMOA2iBETA*BtTASO«OMCGAtfOMCOASO 
fOV^ON/’^U/FKJlAS.  FMU2AS.  FMUIGO*  FMU2GO 
C  OV VON  t vuGO/ GwF  M  u 1 A  b « SOFMU2  AB  t  GQFMUl GO » SOFHU2GD 
rOWON/lvAG/SIGNCA  J  .  IVAG(«I 
fnvON/vAT/r(A«A  J  : 

CnvMON/DATA/CllSO.CI2SO.C!IlSO*CII2SO 
FWUf  A» 

fOUIVALENCE  IFMU.FM'jUB)  ♦  (  SOFMU»SOFMUl  AB  J 

r 

.... 

RFTASO  ■  RFTA  •  BETA 

C  ... _ _ 

FVlMlI  •  r>MFGA«iO/f  I  ?SO  -  RFTASO 
Fwi/cd  »  OMFGAfO/r  [[?SO  -  RFTASO 

rMi,c»j  •  OMFGASO/r  !  ISO  -  bftaso 

FMU(.)  •  .O^^FGASG/C  in. SO  -  BFTASO 

r 

no  A  i  ■  1  *4  _ _ _ _ _ 

iFiFvunn  S.S.4 

y  iKAGin  ■  IN  :  $  siGNin.  ■  «i.ft  »  fmuiii  •  -rwun) 

K  ■  I 
GO  TO  f 

4  IMAGin  S  $  SIGNin  •  *1.0 

s  .soFMi/d)  •  siGvin  .*  FMum  ....  _ _ _ 

r  I  ■  SORTF  (FMj/(  r  J  I 

A  CONTiNUf  .  . .  .. 

IFU  .FO,  4)  GO  YO  ? 

c  .  ..  ..... 

call  RFSLFUN 

p  rn,n  *  FMinAP*flFs<,r(  ,n , ,71 
12  C(l*2»  •  FMUlA0«KrSS£:LY(2«  lf2l 
n  cn«1»  •  -RFTA*nVsSFLJ(?f?«2J 

14  C(lf4J  »  -0FTA#eeSS£LY<?«?t2) 

lA  C(lfS)  •  f(lfA>  •  C(?tA)  »  C(2*6'  «  0, 

c 

21  C(2»n  •  ?.«FM«JlAR»RFTA«Rr.S.SFL.H2tl  f2) 

22  C(2f2l  «  2.«FVUlAR*RrTA«PFSSFLY(2fl »2 » 

2%  r(2P>  »  (.SOFmu2AB-RFTAFOJ«PFSSFlJC2.2«?) 

24  C<2.A)  .  <  SOFMi;2An-RrTASO»«RFSSFLYI2t2»2) 

r 

31  cn*l)  =  FM((lAR*RFS5ELJ«2«l»n . . 

32  CP. 21  «  rMUlAP*RFSSELY(?.l.n 
)F(FlGN(2n  M2.1  ••2P1 

P’  CP.-*)  *  0,0  5  GO  TO  -*4 

^3  CP.T)  =  -or  TA»Or<,SFL  J  <  2  p  .  I » 

yft  =  -Of  TA*Prs'-.‘‘|^Y(?,?.n 

15  Cl?.*')  s-rMUlGO-PFFFFLJ)  2.1  .31 . . 

’A  C<3.A»  ■  RFTA^RFSFTLJJ.’.?.!) 

C 

41  C<4,n  e  HfTA^RF.^SfLJ*  1  .1  .1  ) 

42  C14.21  *  0CTA«RrssrLV( 1 .1. n 
4-«  CU.31  »  rM|j2AP«RFSSFLJn  .2.11 

44  C(4.4)  •  Fyu2AR«o.FS5.FLVn.2»n  . . . 

4^  0(4. St  ■  -nFTA*RF.SSFLJ(  I  .1  .11 
46  C(4.6I  •  -rMU2G0«REG.SFLJ(l.2.3J 
C 

51  C(5.1»  ■  (FLAMDA2«eCTASO^(FLAMOA2*2.«G2)»SOFMUlAB)* 

•  BESSEL  J<  1.1  .n-2.»G2»FMUlAB»BFSSELJ  12.1  »1  I /A 

52  C(5.2)  ■  (FLAHDA2*BETASO*(FLAMOA2<f2.*G2  )«S0FMUIAB)* 
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•  «»»■  .Sf.L''(  1 .1 »:  )-?.»G2*FMUU^*BESSELV(^«  1  *1  »/A 

■  -?.*r;;»ryu;AB*B»-T*»«BFSSFLJ«l»2»ll-ftCSSFLJ(>t2»n/ 

•  n 

CI‘.»A)  •  -2,*G2»FMU2AS*SFTA«<BCSSCIY(  J<2»n-BtSSElY<2.2.1)/ 

•  1 

5B  C(^«5)  « '(FLAy0Al»pPTAS0*{FLAM0Al4>2t»Gl  )»SOF^JlGDt<» 

«  $FSSELJn«lt1|4.2.«Gl«FHUlG0«BfSSELJI2*l*2)/A 

)6  C(}i6)  *  2»*Gl*FMU2G0*BeTA*<BCSSei.J{l*2*i)'-BESfiELJ(2f2*3t/ 

•  <F'<«j2<*n*A) » 

AT  f(A,n  ■  2.»r.?»FMUUB*RFTA«BFSSFLJf?*l*n 
A2  C<A»2J  ■  2.*fj2*FMUlA8*BETA*BE5SeLYf2tl.lJ 
TF<  Air,N<?)  nA2«lA?»6-^ 

U?  CJA,^)  •  0.0  $  GO  TO  64 

6T  CJA.H  ■  G2*(SOFMU2Aft-BFTASO)*RESSFLJ<2.2«n 
S/*  ClA.<i)  •  0?*(60FMU2AB-BETA60)*BF6SrLYl2.2»l) 

AS  riA.SI  ■-Gl»2.*FMUlfir)*PFTA*PFSSFLJf?»l»01 
66  r«6.6)  •-Gl»(SOFMU2Gf>-RFTASO»*PFSSFLJ(2»2.1) 

\  S'TdPN 

2  print  500.RETA  1.  RFMOVF  THIS  FARO  TO  ALLOW  IMAGINARY  ARGUHFNTS 

STOPl  S.  REMOVE  This  CARO  TO  ALLOW  IMAGINARY  ARGUMENTS 

son  FORMAT! «  PFTA  -‘EiTtM  S.  RfVOVE  THIS  CARD 

END 


ri •fipoHT  t vr  c-i!v 

C''v*r.v/ftcr.SL/*'PS.SFl.JU  »;?»^>  •*FSSFCY»2 

C(.'^vr,N/  INPUT  /A  .L  .01  #02  *FtAM0Al  tFLAM0A2  ♦  BCTA.BCTAS0»0MgGA  tOMEGASO 

rOM^*rN./MU/FMUlAh*FMJJA8*FMUlGD»FMU2GO 

Cr)*'*.nN/iyAf,/Sir,NliSIGN2*SIGN3#SIGNA»IMAGCA» 

0r'-FN«Ift\  ANf.(2) 
r^ATA(PI  ■  ^«U1592A9^) 

XJ  •  PyuUA  *  A .  s  ’  XXI  '■  FMU?A«”#  A 

X?  ■  FVUIAB  *  p  XX2.«  FyU2AB  .•  P 

XI  •  FMMtriO  •A  s  xxn  ■  rMu2GD  •  a 
rFfsrGNDi.i  .5 

I  call  nFSSFLIX  l*l.A,NS*3»f') _  _ 

P.FSSELJ(1>1*1)  "  ANS(l) 

RLdSFLJ(?#l»n.  *  ..-ANS(2  5 

call  PFsr.FLfx  i»itA^s»A*n) 

flF5SFLV(l»l»l)..  ■  -ANSdi  .. 

BF.SS£LY(2»ltl)  «  -ANS(2} 

CALL  0ESSEL(X  2»l#ANS#3.0)  .  . 

BESSFLJ(2»lt2)  «  AN5(2) 

CALL  fiFS.SFLJX  2*l*ANS.A,n)  . 

BESSELVd.l  »2»  ■  ANS(?) 

GO  TO  6  ... 

r 

A  CALt  PrSSFLlX  1  1 1  fANSf 1 .nj 

RFSSELJU  »l*l  ANSI  ) 

BFSSELJ(2»1 »l )  •  ANS(2J 
call  RFSSELIX  l.l,ANS.?.n)  ..  .  . 

RFSSFLYU«l»n  -  ANSm 
BESSELVI?.!  _  ANSI  2). _  . 

CALL  prs«;rL<  X  i  ,AWS,1 

RESSELJiPd.Z)  ».  ANSI2)  . 
call  BFSSFLIX  r«I*ANS»2tO) 

flFSSELVI2*l  .2)  AN5I2J  , 

C 

6  IF(SIGN2)7»7.10  .  ..... .  . . 

C 

7  call  ftFSSFL<XXl.ltAN5.3»P) 

prs.sFLJn»?»n  ^  n,n 
PrS£eLJ<2.2.1)  •  -ANSI2I  . 

PFSSFLYn*2in  ■  -ANSfn 

.  9CS£ELY(2»2.n.  •- rANSI  2)_ . 

RFS5.FLJ(?.2.7)  •  0.0 
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OESSEI  <d.2.n  ■  ANSI!) 

AFS5'..LYC2.2.1  I  ■  ANSf2) 
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•  ANSin 
^r55PLJ<?»l#1l  •  -ANSfJ) 
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10  XI  ■  X  f  '  Yl  ■  Y  . . 
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’«  X  •  y  ♦  OfL  f  RFTimN 
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IFfoirr  ,lt,  TO). I  r,o  to  50 
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54  XI  ■  X5.... _ S.. . Yl  ■  Yl .  t  ...  .C»0  TO  7A 


4(>  IFLAC  ■  -1...  S. . J^aURN .  . . . 

50  I  FLAG  ■_! _ t _ RETURN _ I.  END 
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41  VAl'ici  y*n,r*PJI  n 
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0JIK)*l0.E-30  ....  .  . . . .  . 

L*K 
10  Fl  ■! 


I 


r 

i; 

p 

i‘ 

i< 

r 

i» 

i« 

?' 

71 

?; 

71 

74 

7* 

?6 

*>7 

76 

7C 

\r 

7? 

74 

76 


7  0 
7c; 
4^ 
41 
47 

47 

44 

45 


49 

40 

60 

*1 


54 

65 

56 

57 
5B 


150 


''jn  -1  I 

?r(i -!)]■». n#l» 

r,''.  vrt  |o 
1?  "wM.r'.n 
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An  FiK  +  n  »o,n 
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204  VALUE  <  !♦!  1*FU  >*S0*  < -1 .  1  *•  I  - 1 -1  I 

RETURN  . .  . . . 
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•  1^  !•♦•  14444444*17 

HUl»^0444444*4-r  . 

.  *f4)a,1444441«n9 

l»<4|4. 10444118114  . . . . . 
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8(8)*4«07472947458 _ ...  _ ...... 

8C4).*, 4143^547211 
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C.0.0  . . . . . 
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00  2  I«l.I0  . . . 
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FUNCTION  GAuSSFlUtX)  _  192 

COr»H(X  «FXPF»X»+FXPF(-X)  ) 

IF( l*0/U-7l0*0)123tl24*124  ..  191 

124  GAUSRF»0,0  194 

RETURN  104 

121  GAUSSF*  I£XPFC-X*CO.SM(l,O/U-l«0)l)/U4»2  196 
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«•»  lNTrc.RA.TrS  THF  ExTFWKAL  FUNCTION  f  priWEEN  THE  LI'^ITS  XI  ANO  XFMO. 

|T  SUCCESSIVELY  hAIVES  THE  INTERVAL  UNTIL  THF  FRROR  IS  LESS  THAN  TrST. 
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NWMV 

"f] 

NWMV 

7; 
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PROGRAM  NULLMAT 

.  COMMON/J3ESSLL/B£5kI<il . . . . 

COMMON/OATA/FH(2)  •  FK(7I*  FLAM0A(2)t  PMU(2)*  1H(2)*  III  PIi  OAMMAi 

I _ GAMMAiO _ _ 

OIMFNSrON  AA(A«AI«  CCfAl*  tMA0(4)i  STGNfl)*  RH0(2) 
.0ATA{J?i..f..3^1AlA926i3J-i..tiiQll.Jl^ix.r.liLi  . 


. tNRlIl.ACia.mLTIiU2£.J3lLllL. 


700  FORMAT(3FH.9i  191 


fFIFOF.AO)  100.  20 

.  ja.  JFLAG  -•  .L . .....1 _ _ 

FL  •  3.  9  P  >  OMfGA 


El  •  UOO  E  7  %  €2  •  9«60  E  9 

_ _ PNUl  . J. _ ^!lU2.*.a431 _ 

gamma  ■  FN«P!/FL  S  GAMMASO  •  GAMMA«*2 

. RMQ I  LI  ..•.2.A229A.£.r.4...*. _ JM(?L2L.f..iALWiL2.JE..tA. 

FMul  1  I  ■  F1/I7.'*'2«*FMU1 1 


FLAMDAin  •  FNUl«El/Hl.<iFMUll*U«-2»«FNUin 
.fJLAMaAi2J..f.^ftU2f£2/.lJJL«.tEiiUL2.11.iX*s2«.tEJlU2JL. 


.PJ!JJII..ftLQi}.i«xELil2jjaiJ[tilUUfAU2iy£ji£MUiAJxefiUJLZLtfJ.jJ!MflUJx8K0.UJLx. 

•  FN*FLAMOAI I  I •FLAM0A(2I iGAMMAiTOC 


3H0n  tE20«9«10XtAHMUl  iEn»9 ilOXteHNUa  •E17.9*/* 

....  AUjQV/’.i£2iltAilJQXx&^ltfU.X...«CL2A9xLaiLt6>MU.2 _ tC17.«.9x/x . . 

3H0I.  tE20,9*10Xt6HRMO  1  lE  17*9  tlOX  t6HRH0  2  tE17.9t/* 

.....llAflh.  iL2U»A,L01L»611LAWQAl>£17j.S,aliHU6HLiUaaA2iLI7A9x/x . 

6M0GAHMA.E17.9*  /  »6M0T0L  *£17. 9*  f  »AH3  J » 7X .6H0ETERM, I SX * 


. . AtGlA.XZCAATLOfii. 


...2..L£LAC-x.a. . Jl . AM.x  RtA - A - L.i.Jxi- 


_ 00  la  . . . 

IMAG( ! )  -  t  |H( n  •  0 

.....VAR50  -•  PiO?RHDJ.lJ2..lFL&MDAlLlt2x»EhULlLi..T.IiAMMASfl . 

FFIVARSO)  «»  3t  9 

...i-ifLAG-xj - i _ Fiiiu  a  0^ _ I _ nn  in  in _ 

A  VARSO  -  -VARSO  4  IMAGIM  ■  3H  I  1  IM( M  •  1 

..i.fJJMJ.a.SOflJf  i-VARSOi . . . . . 

10  CONTINUE 


CALCULAIK  K'l  ANO  K  2 
00  ! A  I • 1  1 7 

- 4AIAGi.lOJ-  -■-IH . - . . . 

VARSO  •  P.SQ«RHO(  n/FMU(  n  -  GAMMASO 

UI.VARSOJ-lZ.-aLf.-XL- . . . 

11  IFLAG  •  1  S  FKin  •  0,  %  GO  TO  19 

12  -VABSQ  «  »VAB.SQ - 1 - IMAf>1.2iUn  ■  3H _ 1 _ A  IFt  AG  m  ^ 

13  FKI : »  •  SORTFI VARSOI 

. .  LS.LQttllAUE . . . . . . . 

IFIIFLAGI  go  to  AO 

_ C - 


\bl 


GFNF«ATF  MATRrX 


R  •  A . . 

_ _ _ 

IND  »  (l4?)/2  t  ICOL  •  2*1-1  S  IBES  •  ll♦l)/2 

CALL  RFSLrViV’VflF!;*  INoV 

. AA  ( 1 1 1  COLl.x.lI  fiN  I  I  _ _ _ 

AA<2«!COL)  •  SICNin  *  FlflNOJ 

_ JU(l»ICnn,..a  ,i  Ptlthni . . . . — . . 

AAU*1C0L)  ■  SfGNfTi  •  F7(fM0t 

"iCOL  •  ICOLM . . 

. J{..«.fK{lNOr  A-A.  .  ..  . . . . . . . . . 

CALL  R'r‘S«ifLIX.3,  flFSL.  IRES*  0| 

_ AAaiirQLL.*^  SIGN!  1 1  .*-F2n<iQl _ 

AA<2»tCOLI  r.fGNiiJ  •  FAdNO) 

. AA  ( 3  f  ICOL  )..  ■  5  f  GN  U  J..* . . . . . 

AA(A»ICOL)  ■  SIGN(n  •  F8UN0» 

30  CONTINUE . . . 

_ AA.L5Ltjj _ !^A(,^i^i„..  .  aAUjU  >...AA(/5h2)  r..  0. _ 

Ran 

. CALL  RFSLF.Uk.Ii  2J . . . . 

AA(S^3)  .  F5(2» 

AA(60)  a  F3(2l  t  FMUI^I 
CALL  BESLFd.  2,  21 

_ _ AA  (3»51  a__F3(2J _ 

AAIA.SI  a  F3<2I  /  FMU<2) 


X  a  Fr«?J  *  n 

CALL  RF.SSELlXt  3.  BESl.f  1  t-fl-l . . 

AA(StA  )  a  Ff,(  2) 

_ AAl  _ 

call  BESSFLIX.  3,  flESLt  2*  0> 

AA«5»fcJ  a  XM21  .  . 

AA(AtA)  a  rA(2J  t  FNUI2> 

CALL  NWMATINVI AA«RR,rf fA*6.0,nET.IDFT ) 

PRINT  60li  J>  DETRM,  P,  (FHII).  lMAGni»..Ial#A J . 

601  F0R»1ATII<.,  2Fl7.fl,  A(  F17,7»  A3).  /  ) 

call  rootip.  oetpm,  tol»  oomfga,  diff,  iV.  Jflag) . 

_ IFIin  33.-5Qx5J _ 

36  PRINT  AO?  S  r,0  TO  I 

602  FORMAT'////,  lOX.  POHlTFRATlOTiS  niVERGING'.  . 

C 

AO  PRINT  J.  P«  (FHJM.  IMAGIU*  lal.Al 

6U3  FORMATIlA.  17a,  617.6,  A(E17.5.  A3|,  /) 

_  JFLAG  «  4  ..  _  ...  _ _ 

C 

50  IF(J  .LT,  ITfR)  GO  TO  2  .  . . 

51  FRFO  a  P  /  (2. ''PI  ) 

PRINT  604.  FRCO.  OlFF  .  . 

60*  FORMAT!//'  7H  FRFO  a,ei7.B,  IOX.7H  DIFF  a.  E17.8) 
_ 6.0-10.1 - 


FUNCTION  COFFI  1 J. 

COMMON/0ffi$^t/9F‘4.tFt  ,  _ _  _ 

• 

COMMON/OATA/FHIS:  1  FKISI*  FUMOAltl*  RMUIld  iHitl*  K« 
#  JlAMflASO  _  _  _  _ 

Ft«  OAMMAf 

c 

DIMENSION  SIONISI 

OATA<5ION..-.Ui..-rX«J. _ _ _ 

ENTRY  FI  _  _  _ 

. 

c 

j  ■  iHilt  A_J _ 

Hso  •  <  n«*? 

COER.  -  iFLAMDAdl/l.  ♦  FMULM  JJ  tMSQ.  «  _ _ 

•  -  FLAMOA(|»/R  •  FHMl  •  8CSf.<2) 

.  .  -MFI,AH0AHl/2f..t..FWV.U.nA.liIfiNU»*MSQ  _ 

•  ♦  flamoau)  •  GAMHASot  •  efSi.in 

RETURN 

C 

ENTRY  F2  _  _  _ 

C 

,  ,  COEF  ■  FMUII)  •  gamma*  FKn»*tfiFSLin  -  BESLISI) 

_ c_ 

RETURN 

•  •• 

ENTRY  FI 

_ COFF  ■  -7.  *  FMUftI  •  r.AMMA  •  FHI  II  »  _ _ _  _ 

-...c 

RETURN 

_ 

ENTRY  FA 

FKSO  •  FK<f)«*? 

. C0£E:-A.>’MUliL.t..lFXSQ/A...«.il£SU4I . . 

•  -FH  1  )/<?»*R}  *  SCSLO» 

_ t  ♦  >79*FFSQ  •  "F^]  i?l . 

•  ♦FKi  n/(2**RJ  •  BESLfU) 

_ QCTlIQtl _ 

C 

c 

•  •• 

. ENTRY-FA . 

COEF  ■  -FHMl  *  6ESL(7) 

. RETURN . . . . 

ENTRY  Ff  __  _  _ 

. - . . 

c 

.  .COEF  ■  Jj&MMA.R..flE&i.i2J . 

..c 

RETURN 

.«*« .  . 

_ c_ 

ENTRY  F7 

COEF  ■  r,*MMA  #  BFSLMi 

_ ftFTURN _  .  _  _  .  __  _ 

c 

•  •• 

. ENTRY-FA  . . . . . . 

C 

- ,-£OEF-t  t  ♦  U/H  i  RE^i21  t  rXUi/2^, 

■t  flr.SLm 

RETURN  S  END 
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SimtOliTINr  flFSLriN«M«fMOt 

C(MMOf(/eeSSLL/fiULX41,..< _ _ .... 

COMMON/OATA/FHI2lt  FK(2l«  FLANOAIDi  tNl2»i  Ni  OAi^Ai 

_ _ _ 

X  •  FMIINO)  •  A 

. _ 

call  RFSSCL  IXt  BESLt  0| 

AETUAN  _ 

C 

_ iiLjF.(iL.EQ>,ii„fiaj:ajifl _ _ 

CALL  AFSSEL  Ut  At  IFSLt  St  Ol 

....C . BMLUL....e«UIl _ 

lESLIEI  •  -BESLi^E) 

. . _ 

ACTUAN 


2A  call  RESSELfXt  N*  RCSLt  At  0| 

....  TOVAA|..r_2,./Al . 

AEALCn  •  -TOVAPI  •  AFSLUI 
AESLI2J  •  -TOVAPI  • 

8CSLC1I  ■  TOVAPI  •  AFSLOl 

i _ I _ EfiD _ 


JClluU 


SUAROUtlNC  NWMATlNVUtR.INOEXfNMAXtNfMtOerERKvIOCTt  NWMV  1 

.  OI^NSIpN  AI.N«AX,l|A0J.NftA|[AaiI8J«A!JLl . . .  2 

.  EOUtVAUENCEMROWtJIIOWtlXItUCOLUMtJCOLUMflCl  NWMV  1 

_ EOU I  VALENCECAMAX.T«SWAP.iAMAXt.tyiVOT.TEMP*lTE>tf»J _ N  WMy - 4 

DATA  IMlNUS>6nOOOOOOOOOOOOOOai  NWMV  5 

«  ...  initial IZAIlOft. _ _ 

0ETERM«1,0  NWMV  6 

. lOET  .,0 . . . . 

T)0  ?0  J>1*N  NWMV  7 

_ 2fl-JN0EX(JliMlaua _ NWMV_  8 

00  iiO  U1*N  NWMV  9 

.  SEARCH  FOJl.ELEMtlll.ClE  . . 

AMAX-0.0  NWMV  10 

.  DO  105  Jl-ltN. . . . .  NWMV  n 

IFI-IN0FX< Jll )  105.105.60  NWMV  12 

_ ftOJlQ  100  KlaAjJI _ _ |1WMV_.13 

IFI-INOF*iri  M  100. 100. AO  ►■WMV  14 

. eO  TEMP»AIKliJll _ _ _ ....NWMV  15 

|F|TEMM)8).100.82  NWMV  16 

. 82  TEMP-rTEMP. . . . . . . NWMV  17 

83  IFI-ITfMO-UMAXI  100.100.84  NWMV  18 

_ 84  AMAX.»TFMP _ ^^.WMV._  19. 

IR-Kl  NWMV  ?0 

100  CONTINUF  ’  *  NWMV  77 

. .105  CONTINUE . . . . . . . . . NWMV  23 

IF(AMAXn?0.115  NWMV  24 

114  BPTfRM.Q _ NWMV_ 25. 

lOET  ■  0 

. . RETURN . . . . NWMV  25 

120  I  ROW* I R  NWMV  27 

. . 1C0LUM»XC  . .  NWMV  28 

IN0EX(  tCOLUM)>|ND€Xt  ICOLUMUANO.aNOT.MINUS  NWMV  29 

_ -Jf  {.NOT*!  IBOWTlfflUa^  11 240*140 _ _ _ _NWMV 30. 

140  0ETERM--0ETERM  NWMV  31 

_ C«A— -EXCHANGE.  ROWSl.. _ _ _ _ _ 

00  200  L-l.N  NWMV  32 

. SWAP*AI1RQW.LX . . . .  NWMV.  33 

Af IROW.L )>A( TCOLUM.L)  NWMV  34 

_ 20O_AUC0LUfl*l_LfJSMA£ _ NWMV..  35. 

IF( .NOT.M t260.210  NWMV  36 

- 210-00  250  L*l.  M...  . . NWMV  37 

SWAP-R( IROW.L  ;  NWMV  38 

. B(IROW.i.)-Bl.iaJLUK.Ll . NWMV  39 

250  BnCOLUM.L»*SWAP  NWMV  40 

_ Cil - S.AVf  PIVOT  INfOKMACION.  OQ  nrTPPMlNANT. _ 

260  INOExn)»IROW*10000r)0nnp>ICOLUM4lNDEXin  NWMV  41 

. PIVOT  ..Af.WOLUM.lCi''liAl . J<WMV-.4?- 

DCTERM*nFTFRM»Pl VOT  NWMV  43 

.  --C .  - . . . . . . . . 

C  •*  KEEP  determinant  BETWEEN  l.OE-20  ANO  1*0E420 

- 2JO-DE  T  ERMl-J»-ABEf  IDETERM-l _ _ _ 

IFIDETfRMl  .GT.  l.e-20)  GO  TO  275 

. -  OETERM  j».IXEJERJa-«-l*.E2Xi.. . . . 

fOET  •  lOET  -  20 

. GO  -Ta.pm . . . . . 

275  IFIOFTFRMI  ,LT,  1.F20I  fiO  TO  300 

- DETERa.«  OETERM  ■/  1.E20 - - - 

lOET  ■  lOET  ♦  20 

. . fiO-.TQ.2lQ- . 

300  CONTINUE 

_ £*_• _ RFOUrP  IFAQING  COFF  TO  1. _ _ _ _ _ 
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A(icnLijM»icnLUM)«uo 

NWMV 

66 

,  DO  350  L-1»N  . 

_ NW**V 

65 

.  35*  AnrnLnM,Ll«A(  fCnLlJM,LI/PIVOT 

NWMV 

66 

fP(.NOr.Mt3flnt360 

NWMV 

.67 

360  00  370  L»1*M 

NWMV 

66 

370  8«  »COtUM,LJ»UlJCQtWjii.jy.PjLyflI _ 

-  _ NWMV 

6»  . 

€••  SURSTITUTF  F0«  NTH  VARUnLE* 

310  DO  550  LUltN 

. . . . . NWMV  . 

.50  . 

|F(  •NnT.(Ll-ICO..<JMn  550tA00 

NWMV 

51 

AAA  TaAtt  1  .irm  tlMI 

_ NWMV _ 5i_ 

AfLlilCOlUM|*0«0 

NWMV 

53 

....  00  650  ml •« . . . . 

_  . NWMV  . 

.56.. 

650  Aai«L)*A(LltLI-AIICOLUMtL)*? 

NWMV 

55 

...  .  IF(  •N0T.M»550»66D . . 

_ NWMV 

55 

660  DO  500 

NWMV 

57 

500  §ILl«L)*RlLl.Ll-ai iCOLUM^LIfT 

NWMV 

.58 

550  CONTINUE 

NWMV 

59 

.  UNDO  ROW  CXCH4NGESj . . . 

LbN 

NWMV 

60 

00  710  L2«liH  .  . . 

. . NWMV 

6: .. 

jrow-indexil i/iooooonooB 

NWMV 

62 

JRO  W«  JROW  .  AND.  7  7  7  7  7B 

NWMV 

.63 

JCOLUM- 1 NOEX ( L  » . AND. 777770 

NWMV 

66 

.  I F ( .NOT  t  ( JROWTJCQLUMJ.l7J.O.x6iQ _ 

NWMV 

65 

630  00  705  X«1»N 

NWMV 

66 

.  SWAP«A((LiJROMl _ 

_  _  _  _  NWMV 

67 

A(K»JROWI«A(R* JCOLUM) 

NWMV 

66 

705  A(IC  .JCOLUM !•  SWAP 

NWMV 

66  .. 

710  L«L-l 

MWMV 

70 

.  ....760  RETURN. . . 

. .  NWMV 

71 

END 

NWMV 

72 

SUflROUTlNF  ROOTtX*  V«  TOL  t  •  DIFF*  IFCAG*  JFLAOl 
TH  I S  j'JMOUT 'fNE" W I LL  F ! NO  T VdoY'Bf”  FALSt ‘ FOSi  T iON 


iflag  •  0 

GO  TO  ilO.i  lO.t-lOl-JFLAa. 
C 

.  10  K1  •  X . 1 . yA.A.X 

JFLAG  •  ? 


It  ■  X  ♦  nri _ i _ ariufiii _ _ 

C 

JO  X2  •  X  . X . yj.«-.Y . 

fF  tVl  •  V2I  25.  50.  21 

21  Xi  •  X2 . X . yi  •..t2. . 

...jsa.iij.js. . 

25  JFLAG  ■  5 

2A  X  •  X2  -  ( IX2-X11/(Y2-Y1M  #  Y2  § 

iETURN 

c 

..1ft  XI  •  X . .  1 _ y.i..i..t....  ‘ _ 

OfFF  •  AfISFtXI  -  X2I 

..  IF(DIFr...Llx..T.Okl..GO..Jji.lO. _ 

11  !FtYl  •  y3I  32.  50.  11 

12  X2  ■  XI  S  Y2  ■  Y1  % 

GO  TO  24 

11  IFtV2  •  YU  1«.  50.  40 
..14.XI.  •  X3- . X . yJl..*..Y3 _ X _ 

...Xia.Ifl.26 . - . .  ... 

c 

.  Aft.lFLAG..?..rl....X . RtJiiafi . 

c 


pnocnAM  r,>TrnM 


ClACIilAH  ftUTFR  liO.lNOARV 

"common  /  I  N>*IJT  /  A  j’b  i  Cl  1 . 0^  .  F  t  A~MDAr«7LAMDA2 1  RE  7  A  •  BC  T  ASO 

C0MM0N/eESSL/Btsse,j.Ju»2.iu„JlW»Ivy.litiLt>.li-.#imkUijlUJ. 

COMMON/MW/FMUUBf  r^«f2An«  TMUlOOt  FMUIOO 

dimension  CiAi&t  i.5CMJX«.l6-Li.Jr!lU.Ui.t^MACLlBJL - 

DIMENSION  If (A) 

.EOUI  VAtENfnfUUtni.FMUlAflJ _ _ 

OATAIPf  •  )»Ul»92Af.)) 


..C..  . 

I 

.  .700 

c 


READ  700i  VFi  FNt  OMEGA t  OOMCGA i  TOL*  ITER 
FORMAT(5C15.8i.  Ill  . . . . . 


_  IJLl  tor^  .aoi  log  I  III _ 

A  ■  ?.AF-1 

El  •  1.0F.7 . .  . _ 

FMUl  *  ?.nF-i 

E2  •  %«E5  .  ..  ..  I  .  .  .FNJ12  .-..Ixlt-L. 
RHOl  ■  .091R/(32,2*1?.I  S 


RH02  >  •0AA8/(32.2*12«I 


J  •  0  s  jflag  ■  1 

B  •  A  •  SORTfU./VF.l . . . . . . 

FLAMOAI  ■  ri*FN'JW(  n  •♦FNIM  »•!  l.-2#AFNUl  »  ) 

FUAM0A2  .  E2»FNW2/|.UttF.yujj.?j.lj.-.2.c!m2J.l . . 

G1  ■  El/12. *«  l.^FNUn  !  %  02  ■  E2/(2.»n.^FNU2)  ) 

CLa-lSa  a. 1 2 a,»JllA£LAMD AUiRHOJ _ _ 

C  I  2S0  .I2.aG2^FLAMDA2)/RH02 

C.JJISQ  •  ftl/RHQl  . . 

C  117^0  «  G2/RH0? 

BETA  •  rN»PI/Fl.  . . .  .  . 

BETASO  «• 

FN.  FlAMDAJ,  ,  FLAMOA?,  BETA,  TOL 

FORMATOHIA  .E2  J  .  5 . 1  oA  .ftHE  I  _ .El  I.i.lOX  t6HE2  .E17.5i/f  ...  ... 

3HoM  .E:o.5.  K'A.fihNOl  .  E  I T  .  5  . 1  OX  .  6HNIJ2  .E17.5»/f 

3H0Vr  .E20.5.  KiX.AHG  1  .  »£17.*4  .lOX  sAMG  2..  iE17.5./. 

ImTl  .F?0.  ^  .AMRMO  1  .F17.5.inx.frHRHn  ?  .F17.5./. 

3H‘*N  .E20,5.UXi6HLAMDAlt£12A5ilQXiiiaLAMDA2i£II.li/>_._ 
ftHOBETA  .FIT, 5,  .^HOTOL  .F17.5.  /  .AM3  J.TX.AHOMFGA  .llX. 

5HDETRM,  inx.  JlHMtiiAO  <  M2 )  t9X  »J  IHFMU2  AB  !K2  I  »9X ,  UHF.MUIGD.  (HI ) 
9x .  1  iM> Mt(?Gr  IX n,  /) 


OMFGA.SO  ■  OMfGA  *  riMFT.A 

J  ■  J*I  ..  .  _ 

FMU(I)  .  OVFGASO/r  I  250  -  BFTASO 

FMU(2)  «  Om^GASO/C  I  1750  -  BCTA50 

FMU(3»  ■  OMFGASO/C  J  1 50  -  BFTASO 

FMtH<.J  •  OMEGASO/f  I  I  150  ••  RETASQ 


X  •  0 

DO  A  I  ■  1  *<.  S 

rFlFMlKin  3.  A. 

X  ■  x*l  s 

FMU(  I  )  ■  -FMUM  1  1 

continuf 


t  M  n  «  0 


IKK)  ■  I 


FMUIAR  •  SORTFI  FMI  I  1  »  | 

FMU2Afl  ■  SORTFI  FMU(2J  ) 
FMUIGO  •  SORTFI  FMijn)  ) 
FMU2GD.«  SOBlFi  FMlIlAl.l 
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IF(K-1)..75».  5JL..I5 . 

%  IFtimi  “  A.  7S 

6  CALL  HF5LFUN 


11  CUtll  •  FMUlAR«RFSSELJ(2»lt2) 

12  .C(  I  .iJ . -.f  MUlAB»eiLSS£Ltj2tJLi2J _ 

19  C<l.9l  •  -eET##BESSCLJ<2.2.2J 

19  C(l.9J  ■  C(1.6J  •  C(2.9)  ■  Cf?.6»  •  0, 


21  CI2*1I  •  2.*FMUUB*RFTA»RESSELJI2»lt2) 

22 .C 12 12 1. -.2t«F^.umfa£IA«JlUk&axi2.tltaj _ 

29  C(2»9I  •  (FMU2AR*»2-BtTASO)*fieSSCLJ(2»2«2; 

JLh.SlZ  t  il,  f-L£MU2Aaf  ASO I  *86  SSCLY  i  2 12  i2 1 


. 91  .C19»ll..>.JrKUlAB«8£SaELJi2a*ll_ 

92  C(9i2»  >  FHUlAB*RrSSELYI2*l»ll 

.......99 .  C  ( 9 » 9.1.  .•  ..-rPtIAfA£2L5£ka.l2.t2jLU _ 

94  C(9*4»  •  -RETA#B£5SELYl2.2tn 


In^Ll.i  4->14Wlrrt  r»  II 


96  C«9*6I  •  BETA«BE$SELJI2*2t9t 


41  C(4*n  •  flETA»RESSELJ(l«ltn 
.42.Cl4.i2L-.ACJ.6*J««:LtJIilili... 
49  C(4»9t  •  FMU2AR«RFS9FLJn*?*ll 


*  Tf.mWrW  j  ^1  Bjr#.1  Js%1 4  m  Mw  1 1 


49  Cf4*9)  ■  •BETA»BESSEtrn*l*9» 

..AB..Cl*u*61-A..-FMU2liD«BtSiELJJ-lj2AaX . 

..AL.Ct9.ill..-  (-FtA«DA2»BETASQ-l2UiMaA2i2tAG21»eMui6fi».?ZlA . . . 

•  BESSEL J(  1»] tl l♦2-•G2•FMglAR•BCSSeLJI2»l•l I /A 


JWTTrBT^I  1:1^# Vf^CTf  aW  t  J, JilF  i.T  x  >jy 


•  RESSELy(ltl*lM2.«G2«FMu:AR«RESSELV(2*l*l  )/A 

_ AJ..C(&.i3J..A..-:2«.fG2FCMlJ2ABAB£.TAffJLB£i&£LJili2iXl.-JLSS£LJi2j2iliy. 

•  JFMtJFARiAII 

. A4.C(9.t41.A.-.2«ta2f£HU2Aa.9B£IAt.LBejSSL£LIUj2illrALSA£LX12i2fLl/. 

•  (EMl<2AR»AH 


•  -2.»f«i*FMulGD»RFSSELlC2*l*9)/A 
.96.ClSi6k.A.2.«GI  9F  BU2  GOFBE 1 6»  ( AE  ASCI.  At  UZlUtAZ  AB£L2i  2a2jl9X/. 

•  (FM|<2GD»AM 

,.9 1..CI9  -.CI5j  1 1 . i. . XiAj2 l..i..rClA*2l . . 

41  gt4.11  >  2.tGl>FMUlAfltHFTAiBESSgLJ(2,l»ll _ 

62  C(6t2l  •  2»*G2«FMUlAB»6ErA«RESSCLYf2*l*lt 

j61.C1.6.t9.l..«.G2»lFJ!};i2Aa.»*2rBtIASU.l#J£ASlLJl2«2ill . . 

64  C(6*4)  •  G2«<FMU2AB»*2-BETASOl*BESSELY(2.2*ll 

.AA.ClAiU.A.2.«.GLffJ!iUlGJifAElAi*flEJSS£U.12ilill . . 

66  CI6.6)  •  -Gl»(FMU2GO»*2-BETASO»«8ESSELJI2.2»9l 


C 


call  NWMATINVK*  BB«  scratch.  6*  6.  0.  DET.  tOETt 
. JOE  I  .*  20*.10£JL . » . -J)£.tRM.A.ilEJ...<l.LlO.MJinElJ... . . . 

. PJ*lHT..dQl.i.Jt.i}M£GAj..0£IlWj..lEMUUJA.iJ9AGLlJ.f..2!l»Al . . 

601  FORMATUi*.  2E17.8.  A(  F17.7»  A9).  /  ) 


call  ROOTCOMEGA,  DFTRM,  TOL.  DOHEGA ♦  RIFF.  JJ.  JFLAOJ 

. . XfUJl-TtU.A0....A9... . . . . 

7ft  PRINT  402  S  GO  TO  I 

..._^Q2.f.0FM.Vri2/y.£jL.JJ3Ai.^QJdllEfL6JJCi!iS.-£aycaClBfiX - - - 
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c 

75  PRINT  . . . 

60*^  FOAMATCt**  riT.5«  1 7X  •  *IC17«5t  A9lt  f) 

_ - - 

c 

...  80  IFCJ  .LT^.JLT£Rl.riO..ICl.i . . . . . . . . 

85  FRFO  -  OMFCA/<?«*Pt ) 

. PRINT.  AOa  J..F  RCfli..01Ff, . . 

60A  F(MMAT(//»  7H  FREO  ••E17.8*  10X«7H  DIFF  ••  E17.8I 


ion  END 


SURROIITINF  RFSLFUN 

COMMON/|NPUT/AfjllAlAOlff.itAMpAJ.tfJ^AMOA2A®tt^.t0mW . — . 

C(MMON/6CSSL/flESSeLJI2t2»3l*  6CSSCI.VI  2*2«3)  •  BE£SCLI  I2*2«S» 


SUBRO'uTYne'nWMaTiNVJ  At'et  rNbEX*NMAX#N.Mlt)EfERMt’j'DeTr  NWMv”"  I 


Ol^4FN$tON  A(NHAX«}|  *ft(NMAX  •  4)  t  )f(O^X  1 IJ 

NWMV 

7 

• 

E0UIVALENCF< iROW.JROWtIR) »l ICOLUM »JCOLUM, (Cl 

NWMV 

1 

EOUIVALENfE<AMAX,T,SWAP,IAMAX),(PlVOTtTEMp,ITEMPj  _ 

NWMV 

4 

OATA  iMiNu5'*6ononnonooooooooRi 

NWMV 

5 

c*« 

(NITIALIZATI.OtU . 

.  - 

OETFRM.1,0 

IDET  •  0 

NWMV 

6 

00  20  J«ltN 

NWMV 

7 

50 

INOFXC JI^MINUS 

.  NWMV 

a. 

no  550  (■ItN 

NWMV 

0 

...c 

SEARCH  FOR  ELEMENT  OF  LARGEST  MAGNITUDE. _  _ 

AMAX«0.0 

NWMV 

10 

DO  105  Jl-ltN  _ 

NWMV 

11 

IF(-|Mnrx< J1 H  in5.i05?6O 

DO  160  Kl-liN 

NWMV 

17 

60 

NWMV 

11 

iF(-iN0Ex(xin  lootinotflo 

NWMV 

14 

Rft 

TEMP«A(K1 yJl 1 

NWMV 

15 

IF(TFMPIA1»100.82 

NWMV 

16 

TEMP.-TFmP 

NWMV 

17 

<11 

IF(-itfmp-iamax)  ion«innt84 

NWMV 

15 

8* 

AMAX«-TEMP 

NWMV 

19 

|R«K1 

NWMV 

50 

IC-Jl 

NWMV 

71 

ion 

CONTINUE 

NWMV 

77 

ion 

CONTINUE 

NWMV 

71 

(F(AMAXn20.115 

NWMV 

74 

iin 

DETERM.O  _ 

NWMV 

.2!L- 

IDFT  ■  0 

RETURN  ...  . . . 

26  . 

lin 

|ROW«IR 

NWMV 

77 

ICOLUM»IC  . . .  . 

. NWMV 

78.. 

INDEX!  iroi  UMlalNOEXt  ICOLUMUANO.iNOT. minus 

NWMV 

79 

IP<  .NOT.I  tflftU-irmilMIHAO.lAQ  _ 

_ NWMV  JQ_ 

180 

OFTERM.-OFTFRM 

FXrHANOr  ROWS. . . . . . . . 

NWMV 

11 

DO  700  L«1 »N 

NWMV 

1? 

SWAPaA!  IROWiL)  . . . . . . . 

. ...NWMV  . 

11 

A(tROWfl)>A( ICOtUMtLl 

NWMV 

14 

LLCOLUM  *  L  IaAMAP 

NWMV 

.35 

IF( ,N0T,m)560«210 

NWMV 

16 

...  210 

DO  750  L"l»  M  . 

.  NWMV 

37.. 

SWAPaP ( IROW«L 1 

NWMV 

ni  IROw.L»-RI  ICOLDMjl.)  ...  . 

NWMV 

19 

550 

B(  ICOLUM.l  »».SWAP 

NWMV 

40 

_ c**  ._5AyE  PI voT  iNFOAHMLinN.  DO  oet.;rminant. _ 

260 

INDEX!  na|ROwaiOOOO:)non04|COLUM4|NOEX|  1  1 

NWMV 

41 

PIVOT  -A! ICOLUHtlCOLUMl 

NWMV 

4? 

C 

OETERM-OFTERMaPl VOT 

NWMV 

41 

C  c* 

KEEP  OFfFRMlNANT  fiETWEEN  l,0E-70  AND  l*n£*2n 

570 

DFTFRMl  .  AnSEVDETERHI  .  .  . 

IFCDETERMl  .GT.  l.E-2ni  GO  TO  775 

OETERM  •  OETERM  •  i .E20  . 

lOFT  -  rOET  -  20 

GO  TO  770  . . . . 

575 

IFfDETERMl  ,lT,  1.F20)  GO  TO  100 

oETfRM  ■  orTPJm  /  _ 

iOFT  ■  lOET  4  50 

GO  TO  270  . 

ion 

CONTINUE 

R£DUCt  LF.AQING  CQEr..T0.1. . . . . 
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A(KOLUHiirnLUV)«l,0 

00  350  L«I.N  . 

350  AJ  IC0LijM*LI«ill  IC0LUM,L»/P1V0T 

_ }  Fi.jnTtMnqotafeo _ 

“160  00  370  L»1*M 

.  .  37a  B(ICO|.UMiLJJl9.eK0kUiliLl/PJ.^t0.l. 
SUBSTITIJTF  FOR  NTH  VARfARLC. 

-  .  380-00  550  . 

IF<  .MOT.dl-ICOLUHM  550*400 

_ -4aQ_T.»AiLi*li:0LlJiU _ 

Aai*ICOLUH)«0«0 

.  00  450  LfJiN . 

450  AIL1«L)-A(L1*L  j-amcolum,lipt 

. I F  J  ..N01^lll5iOjL*AQ. _ 

460  DO  500 


580  CONTINUF 

.CfA.... UNDO-  ROW.  F-KilHAeifieit . 

L>N 

. 00  T10.J.P-UN. _ 

JROW*fNOFXtL  J/IOOOOOOOOB 


JCOLUN.INOE*  t L  » .AN0.77777R 

. .  IF  I..NQI..  1  janWr.JX:DUJM.lJ.lin*A3il.., 

630  00  705  K-1«N 

. .  ..5WARf.41AfjA8aWl _ 

A(IC*JROW)>A<K*JCO^UM) 


710  L»L-1 

.x6a,mjjaH _ 

ENO 


SUBROUTINE  ROOTIX*  Y*  TOL*  DEL i  DIFF*  IFLAG«  JFLAG) 


This  subroutine  will  find  a  root  by  false  position 


I  flag  •  0 

60,  TO.  <  _jrj,Ari_ 


in  XI  •  K 


VI 


JFLAG  •  ? 

X  ■  X  ♦  QEL  t  RETURN 


X?  m  y  $  Y?  »  V 

IF  (Yi  #’  v?i  ;Vj  *10.  ?i . 

FI  •  F?  .  ...  1Z . 

JFLAG  ■  r 

A _■  A. 2  -  •  tx2-xi  >/tY?-»vi  n  ■  Y2  s 


.5-0.10.15.. 

RETURN 


30 


31 

_ .-J2 

33 

3A 

C 

AO 

c 

_ la 


X3  ■  X  » . Y3  .B  y. 

DIFF  ■  ARSFIX-^  X?I 
I  fid  IFF  .LT...TnL)  fiO  TO..  50. 
IFIVl  •  V^J  3?.  50,  33 

X2  ■  X3  S _ . 

IFIV2  •  Y3»  3Ai  50.  50 
XI  •  X3 . ». . YL  -.YA. 


GO  TO  26 


..On.lO-JS... 


IFLA.O  -..-1  ...... 

IFLAG-J-I . I- 


..HLUm. 

jiEiim. 


.Xiia. 
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APPENDIX  X 


PROGRAM  FOR  FORCED  VIBRATION 
USING  SIMPLIFIED  ANALYSIS 


100  tUSC  L1NCQS«<** 

110*  PROGRAM  POR  fORCCO  VIRRATION  Ufifia  lIMPLIPtfO  AHALYlit 
120*  WRITTEN  JUNE  I8»  1948  BY  OtORBC  BURBIN  ••• 

125*  PREC-PREE  CASE  WITH  U  R  <B>  •  EERO* 

130  DIMENSION  AA(2S* 8S)« RHS(2S) 

140  105  CONTINUE 
150  A  >  0.  0025 
140  VP  B  0.45 
(TO  RHaia2.48734E*4 
180  RHOSal. I3942C'4 
190  ElaEPatOOOOOOO* 

200  E2aERa380000. 

210  PNUIaPNUP-0.2 

220  PNU2aPNURa0.35 

230  aia6PaCI/(2.«2.«PNUI) 

240  02a6RaE2/<2*«2.4pNU2) 

250  PIa3. 141592453 

240  192  PQRMAT<"A  a  "tElO^A*"  8  a*SElO*4*'‘  VP  a*SEI0*4/ 

270  ♦••RHOI  a",CI0.4*'’  RH02  a'SEIO.A*”  E  I  a“,E10.4#/ 

280  ♦"£  2  a  ••,CI0.4,»  NU  I  a  •SEI0*4«**  NU  2  a  •',EI0.4»/ 

290  ♦‘•G  I  a",EI0.4*"  6  2a  ••♦EIO.A#”  PL  a  '^EIO.A///) 

300  BaAaSQRTPC l./VP) 

310  PLa3. 

320  PRINT  191 

330  191  FORMAT(///*'INPUT  DATA"/’* . 

340  PRINT  l92«A*B.VF*RHr||*RHa2fCI*E2*PNUI*PNU2*GI*G2*PL 
350  AAM*  I  )aA 
360  AA( l.2)a<A 
370  AA(  W3>*-|./A 

380  AA(2* 1 )«EF/(( l.*FNUP»a( I.-2.*FNUF)) 

390  AA(2«2)>-ER/( ( l.♦FNURla( l••2•aFNUR)) 

400  AA<2.3?*ER/<( l.♦FNUR)aAaa^) 

4  10  AA(3*  I  )  ■  0.0 

420  AA(3*2)«B 

430  AA(3.3)  a  l./B 

440  RHSC I )>A*(FNU2-FNUI ) 

445  RHS( I)*-RHS( I ) 

450  RHS<2)  «n.n 

460  RMS<3)»8*FNIJ2 

470  CALL  LINEGC  AA.RHSf  3*  I ) 

480  FK|F»RHS( I ) 

490  FKIRaRHS(2) 

500  FK2RaRMS(3) 

510  FLANDAR-FNURaCR/(< l.♦FNUR1•< l.•B.arNUR>) 

520  FLANDAFaFNUF*EF/(( I.*FNUF)a{ |.-2.aFNUF>> 

530  T|bRHQ|*PI*(.FNU{»FK IF)a«e*Aaa4/4« 

540  T2ai-FNU2*FL!R,a*2a<Baa4-Aaa4)/4. 

550  T3a'*FNU2*FKIR)aFK2Ra(B*a2-Aaae) 

560  T4aFH2R4a2*L0riF(B/A) 

570  ClaTI*RH02aP|a(T2^T3*T4) 
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rQRCC4  CONT'  .0 


591  TS«Cr/2.*A«*2 

AOO  T4«CR*(8««*2-A«*2)/2. 

410  TT«cF/((  l.•2••rMurnArKtr*•t•A••8 

420  rA«eR/((  l.«^FNUR)*(  l.•2.•rNUII>MrKlll••tA(SA•t>A••£) 

430  T4**CR/< i.»rNUA)«rK2R**2*( I . I . /A*»2) 

430  Ca^Pl^tTb^TA^-Tl^TA^Tf > 

440  PRINT  l94.FKlF«FK|R«rK2R 

470  194  FORNmTC'K  I  F  •".CIO. 4*”  K  I  R  ••SCIO.4***  K  2  R  ■’*«CI0*4/> 
4A0  PRINT  I93«CI<:2*C3 

490  193  PaRMAT(*‘OHCGAl  •**«CI0*4**’  iTNrOAt  •'MI0»4,*'  ONCQA  3  •'*«CI0*4) 
494  PRINT.tft 

493  726  N*|,3 

494  72fc  call  ONCGANATt C I # C2# C3.N#Ft ) 

700  104  03NTINUEI  PRINT  92 

7  10  92  FORMAT  (///"INPUT  VALUE  FOR  ONCQA  E  ”)l  INPUT»OMEOAE 
7 20  OMFCA 1 «C t lOMeGA2«C2lOMCGA3«C3 
7  30  BETA  I «OMCGA  J-0ME6AC44240NEGA I 
740  BETA2»aMtGA2*0ME6AC4*2 

730  FI  |3SORT(8ETAI/BETA2)lSOI>SORT(Br.TM2/BETAI) 

735  PRINT  29WS0I 

756  291  FORMAT  <//"  BETA  •  "»EI2.3> 

760  FI2»FI |/SIN( SOI*FL) 

7  70  '  START  00-LCXDP  ON  Z  *•••••••• 

7R0  DELTAZ.I. 

702  Z«0.0 
7R5  Z«0.0 

790  on  999  K(]UNT»I.3 
BOO  Z*  Z*DELTAZ 
B05  PRINT  97, Z 

BIO  ARG=S0RT(0M£GA2«0MCGAE**2/(0MEGA3>0HCGAE*42*0MCGA| ) ) 

BPO  DPH!OZ  =  r  1  ?*ARG*E!N(  ARr**Z> 

B30  EPSZ«nPHIDZ 
440  PRINT  94,EPSZ 

BSO  94  nRNAT(/"EPS  Z  *  ”.£l2.4/> 

B60  GO  TO  1375 
rP!)  BBP  CONTINUE 
BB2  FKIF.Cl  SUPl/F.PSZ 
H <3  FK |R*C: SOPP/EPSZ 
BB4  FK2R»C2SUP2/EPS7 

900  97  FORMAT!//" . . . 

910  ♦--- . 'V/2CJ(,"  Z  •  ”,FI2.2/) 

9?0  PRINT  55,CISUPI,CISUP2#C2SUP2 

930  55  FaRMAT(//"C  I  SUP  t  I PC20. 7/"C  I  SUP  2  •"#£20.7/ 

940  ♦"C  2  SUP  2  ■".E20.7) 

950  SIGMA|-FI/(( |.♦FNUI)•(  I.-2.*FNUI))4CISUP! 

960  SIGMA1Z>EPSZ«EI*2.«FNUI«SIGNA| 

970  PRINT  57,SIGMAI#S1GMA|Z 

780  57  FORMAT! //"SIGMA  I  R  ■  SIGMA  I  THETA  •"#IPE9.3#"  SIGMA  Z  •"# 

981  •IPC9.3) 
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rQRCC4  CONTINUED 


f90  uRi>(-rNiji*rKir)«ERSz*A 
992  W«-ril*COS<SOI*Z)/SIN<SOI*rL) 

994  PRINT  995«URI*W 

995  V95  rURNRT  C*  U  R  I  IPCI5.5*'’  «  I  •***(! 5*  4) 

inoD  deltaro(b-4)/4. irba 

I  Olfl  DO  95  Ki1inTRb|*5 
I  020  FMULT»E2/(( l.♦FNU2>*( l•-^•4rNU^>> 

1030  SI0MARBrMULTB(CISUP2-( |.-e*4FNU2>«  2SUPI/R442) 

1 040  SlCMATBFMULr4(ClSUP2«( l.•^•4rNUI)•CISUPI/R442) 

1050  $10NAZbEPSZ4C2^FNU2*($10HAR  ♦  SIQMAT) 

I05R  PRINT  56*Z*R*SI6NAR«S10NAT«5K0KAZ 
lOAO  UR2b(-FNU2«FKIR>4CPSZ4R  ♦  rKtR4|PSZ/R 
I  064  PRINT  393*UR2 

1066  393  FQRMATC  "  U  R  2  ■••#IPCI5.5) 

1  070  56  FORMAT (/// 1 5X»”Z  ■  ”F8.e#*'  R  •  "•FI  1.7/ 

1  080  «"SIGMA  RB"«|PC9*3f"  S18MA  THCTA  •"•tPC9*3«"  S16NAZ  -"•IPC9.3) 

I  090  R  «  R  «  OCLTAR 

I  100  95  CONTINUE 

1110  999  CONTINUE 

I  120  STOMM 

1575  1575  CONTINUE 

I  580  AA( 1. I )bA 

3590  AA( |.2)s>A 

I  600  AA(  I.  .T)**  l./A 

1610  AA(2.  I  )BeF/((  l.♦FNUF)•i  l«  -  2.4FNUFn 
I  620  AA(2#2)>*ER/(( l.*FNUR)4C l.-e.tFNUR)) 

1630  AA(2»3)»CR/(< l*♦FNUR)•A••^> 

I  640  AA(3,  I )  >  0*  0 
1  650  ^A(3>2)sB 
1  660  AA(3,3'  s  I./B 
1  670  RHS(  ns-EPSZ*A*(FNU2-FNUI ) 

I  680  RHS(2)  sO*  0 

1690  RM5:(3)*B*FNU2*EPSZ 

1  700  call  linfo(aa<rhs#3#  n 

1710  CISUPI«RHS( 1 ) 

1720  CiSUP2»RHS(2) 

1730  C2SUP2*RHS(3> 

1  7  40  GO  TO  880 

2000  SUBROUTINE  OMEGANAT( C 1 • C2* C3«N. FL ) 

20i5  PI  s  4.BATAN? 1. ) 

2020  FN  *  N 

2030  RAD»C3/CC2*FN*b2*PIbb2/FLbb2bCI ) 

2040  0MEGA»FN*P|/FL*S0RT(RAD) 

2050  PRINT  91, N, omega 

2060  91  FORMATC  "OMEGA  NATURAL  SUB"«  1 3*  "  ■  "•IPCI0*4) 

2070  RETURNlEND 
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APPENDIX  XI 


ROl/ROa 


1.50 

1.50 

1.50 

1.50 

1.50 

1.50 

1.50 

1.50 


2.00 
2.  00 
2.00 
2.00 

2.00 
2.00 
2.  00 
2.00 


2.50 

2.50 

2.50 

2.50 

2.50 

2.50 

2.50 
2.5  0 


COMPOSITE  VELOCITIES 


VF  = 

5. OOOCOE-01 

El 

1. OOOOOE+07 

RHQl  = 

2.42800E-04 

NUl  = 

2. OOOOOE-01 

NUI/NU2  E1/E2 

C 

0.66667 

50.0 

1. 60375E-»*05 

0.66667 

100.  0 

1. 58gl2E+05 

0.66667 

150.0 

1. 58280E^05 

0.66667 

200.0 

1. 58012F>05 

0.57143 

50.0 

1. 6i I40E+05 

Q. 57143 

100.  0 

1.59210E+05 

0.57143 

150.  0 

1. 58549E+05 

0^57143 

200.  0 

1. 58215E+05 

0.66667 

50.  0 

1. 69050E+05 

0.66667 

100.  0 

1.67403E+05 

0.66667 

150.  0 

1. 66842E+05 

0. 66667 

200.  0 

1.66559E+05 

0.57143 

50.  0 

1. 69856E+05 

C. 57143 

100.0 

1. 67822E+05 

0.57143 

150.  0 

i. 67i25E+05 

0.57143 

200.  0 

1. 66774E+05 

0. 66667 

50.  0 

1. 74983E+05 

0.66667 

100.  0 

1. 7327SF.+  05 

0.66667 

150.  0 

1.72698E^'05 

0.66667 

200.  0 

1.72405E+05 

0. 57143 

50.  0 

1. 758 18E+05 

0.57143 

100.  0 

1. 73712E+05 

0.57143 

150.  0 

1. 72991E+05 

0. 57143 

200.  0 

3. 72627E+05 
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VF 

6.00000E-01 

El 

1.  OOOOOE^^O? 

RHOl  = 

2. 42800E-04 

NUl  = 

2. OUCPOE-01 

R01/R02  NU1/NU2 

:  EI/E2 

C 

1.50 

0.  6666*’ 

50.  0 

1.71673E«»«05 

1.50 

0.66667 

100.  0 

1.70298E+05 

1.50 

0. 66667 

150.  0 

1.69826£4>05 

1.50 

0.66667 

200.  0 

1.69587E+05 

1.50 

0.57143 

50.0 

1.72372E+05 

1.50 

0.57143 

100.  0 

1.70666E405 

1.50 

0. 57143 

150.0 

1.70076E405 

1.50 

0.57143 

200.  0 

1.69776E1-05 

2.  00 

0< 66667 

50.  0 

1.78682E+05 

2.00 

0.66667 

100.  0 

1.77251E+05 

2.00 

0.66667 

150.  0 

1.76760E+05 

2.00 

0. 66667 

200.  0 

1. 76512E+05 

2.00 

0.57143 

50.  0 

1.79410E+05 

2.00 

0.57143 

100.  0 

1.77635E+05 

2.00 

0.57143 

150.  0 

1.77021E+05 

2.00 

0.57143 

200.  0 

1. 76709E+05 

2.50 

0.66667 

50.  0 

1.83324E+05 

2.50 

0.66667 

100.  0 

1.81856E>05 

2.50 

0.66667 

150.  0 

1.81352E>05 

2.50 

0.66667 

200.  0 

1.81097E+05 

2.50 

0.57143 

50.  0 

1.84071E+05 

2.50 

0.57143 

100.  n 

•  1.82250E+05 

2.50 

0.57143 

150.  0 

1.81619E^05 

2.50 

0.57143 

200.  0 

1.81300E>05 

VF  = 

7. OOOOOE-01 

El 

l.OOOOOE-i-07 

RHGl  = 

2.42800E-04 

NUl  s 

2.00000E-01 

RQ1/R02  NU1/NU2 

!  E1/E2 

C 

n:o 

0.66667 

50.  0 

1.81643E+05 

1«50 

0.66667 

100.  0 

1.80360E+05 

use 

0.66667 

150.0 

1.7991 lE+05 

1.50 

0.66667 

200.0 

l.  79683E-»'05 

1.50 

0.57143 

50.0 

1.82305E>05 

S.50 

0.57143 

100.  0 

1.80718E^05 

1.50 

0.57143 

150.  0 

1.80157E-^05 

1.50 

0.57143 

200.0 

1.79869E+05 

2.00 

0. 66667 

50.  0 

|.86909E^05 

2.00 

0.66667 

100.  0 

1.85589E+05 

2.00 

0.66667 

150.  0 

1.85127E+05 

2.  00 

0.66667 

200.  0 

1.84892E+05 

2.00 

0.57143 

50.  0 

1.87590E**-05 

2.00 

0.57143 

100.  0 

1.85957E+05 

2.  00 

0.57143 

150.  0 

U85380E^05 

2.00 

0. 57143 

200.  0 

1.85084E+05 

2.50 

0. 66667 

50.  0 

loOD298E+Q5 

2.50 

0. 66667 

100.  0 

1 .88953E+05 

2.50 

0.66667 

150.  0 

1.88483E+05 

2.50 

0. 66667 

200.  0 

1.88244E+05 

2.50 

0.57143 

50.  0 

1.9099IE*»'05 

2.50 

0.57143 

100.  0 

1.89328E+05 

2.50 

0.57143 

150.  0 

1.88740E+05 

2.50 

0.57143 

200.  0 

1.88439E+05 

CJ  CM  CS]  CVl 


VF 

s 

8*00000E-01 

£1 

s 

UOOOOOE^O? 

RHQl 

3 

2.42800E-04 

. 

NUl 

X 

2. OOOOOE-01 

R01/R02 

NU1/NU2 

I  E1/E2 

C 

N50 

0.66667 

50.  0 

1.90716£i>05 

i.50 

0.66667 

100.0 

1.89396E405 

use 

0.66667 

150*0 

1.88917£4>05 

U50 

0.66667 

200.  0 

i.88669E<i‘05 

1.50 

0.57143 

50.  0 

1.91371E^05 

1.50 

0.57143 

100.  0 

1.89769E-i‘05 

1.50 

0.57143 

150.0 

1.89177E+05 

1.50 

0.57143 

200.0 

1.88869E405 

2.00 

0.66667 

50.0 

1.94216Ei>05 

2.00 

0.66667 

100.  0 

1.92872E+05 

2.00 

0.66667 

150.  0 

1.92384E+05 

2.00 

0.66667 

200*  0 

1.92131E>05 

2.00 

0.57143 

50.0 

1.94883£‘(-05 

2.00 

0.57143 

100.0 

1.93251E>05 

2.00 

0.57143 

150.  0 

1.92649E+05 

2.00 

0.57143 

200. 0 

1.92335E+05 

2.50 

0.66667 

50.0 

1.964inE-i‘05 

2.50 

0.66667 

100.  0 

1.95051E>05 

2.50 

G. 66667 

150.0 

1.94558E+05 

2.50 

C. 66667 

200.  0 

1.94302E+05 

2.50 

0.S7143 

50.0 

1.97085E+05 

2.50 

0.57143 

100.0 

1.95435E+'J5 

2.50 

0.57  I  43 

150.  0 

1.94S26E+05 

2.50 

0.57143 

200.  0 

1.94508E+05 
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VF 

=  5.00000E-01 

El 

=  6*00000E+07 

RUG  1 

=  2.42800E-04 

NUl 

=  2.00000E-01 

Rai/R02 

MU1/(MU2  EI/E2 

C 

1.50 

0.66667 

50.0 

J.92B37E+05 

1.50 

0.66667 

100.0 

3.89008E+05 

1.50 

0. 66667 

150.  0 

3.87706E+05 

1.50 

0.66667 

200.0 

3.87049E+05 

1.50 

0.57143 

50.  0 

3.9471  0E-^05 

1.50 

0.57143 

100.0 

3.89983E>05 

1.50 

0.57143 

150.  0 

3.88364E+05 

1.50 

0.57143 

200.  0 

3.87547E+05 

2.00 

0.66667 

50.0 

4. 14086E+05 

2.00 

0.66667 

too.  G 

4.  1  0051E+05 

2.00 

0. 66667 

150.0 

4.  08678E+05 

2.  00 

0.66667 

200.  0 

4.  07986Er05 

2.00 

0.57143 

50.0 

4.  16060E+05 

2.00 

0.57143 

100.  0 

4.  1  1  078E+05 

2.  00 

0. 57143 

150.  0 

4.  09372£^-Q5 

2.00 

0.57143 

200.0 

4.  0851  OE+05 

2.50 

0.66667 

50.  0 

4.  28620E-»'05 

2.50 

0.66667 

100.  0 

4. 24443E+05 

2.50 

0.66667 

150.  0 

4. 23022E+05 

2.50 

0.66667 

200.0 

4. 22305E>05 

2.50 

0.57143 

50.  0 

4.  30664E'»-05 

2.50 

0.57143 

100.0 

4.25506E+05 

2.50 

0.57143 

150.0 

4.23740E+05 

2.50 

0.57143 

200.  0 

4.22848E+05 
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VF 

6.00000E-Q1 

El  = 

6.  OOOOOE>i>07 

RHOl  = 

2.42S00E-04 

NUl  = 

2.00000E-01 

RQl/ROa  NU1/NU2 

EI/E2 

C 

1.50 

0.66667 

50.0 

4*2051  0E4>05 

1.50 

0.66667 

100*0 

4*  17142E4>05 

1.50 

0.66667 

150*0 

4*  15986E+05 

).50 

0.66667 

200*0 

4*  15401E>*>05 

U50 

0.57143 

50*0 

4*22223E405 

USO 

0.57143 

100*0 

4* 18046E^05 

1.50 

0.57143 

150*0 

4* 16599E^05 

1.50 

0.57143 

200*0 

4*  15866E^05 

2*00 

0.66667 

50.0 

4*37681F>05 

2.00 

0.66667 

100*0 

4.34175E+05 

2*00 

0.66667 

150*0 

4.32972E+05 

2*00 

0. 66667 

200*0 

4*  32363E+05 

2*00 

0.57143 

50*0 

4*  39464E+05 

2*00 

0. 57143 

100*  G 

%351  16E+05 

2.00 

0. 57143 

150*0 

4*33610E-^05 

2*00 

0.57143 

200*0 

4.32847E+05 

2*50 

0*66667 

50.  0 

4.49051E+05 

2*50 

0*  66667 

100*0 

4*  45454E+05 

2*50 

0*66667 

150*0 

4*  44220E+05 

2*50 

0*66667 

200*0 

4*  43595E+05 

2*50 

0*57143 

50*0 

4.50880E+05 

2*50 

0*57143 

100*  0 

4*  46419E+05 

2.50 

0*57143 

150*  0 

4*  44875E+05 

2*50 

0*57143 

200*  0 

4*  44091E+05 
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VF  » 

7.00000E-0J 

El  = 

6. OOOOOE«07 

RHG 1  = 

2. 42800E-04 

NU!  = 

2. OCOOOE-01 

R01/RQ2  NU1/NU2  E1/E2 

c 

1.50 

P. 66667 

50.0 

4. 44933E+05 

N50 

0.66667 

100.0 

4. 41790E+05 

U50 

0.66667 

150.0 

4.40691E+05 

1.50 

0.66667 

200.0 

4. 40131E+05 

i.sn 

0.57143 

50.  0 

4. 46555E+05 

1.50 

0.57143 

100.  0 

4. 42667£>05 

1.50 

0.57143 

150.0 

4. 4J292E+05 

1.50 

0.57143 

200.  0 

4. 40588E+05 

2.00 

0.66667 

50.  0 

4.57832E+05 

2.00 

0.66667 

100.0 

4. 54598E+05 

2.00 

0.66667 

150.  0 

4.  53467E*05 

2.00 

0.66667 

200.  0 

4. 52891E+05 

2.00 

0.57143 

50.  0 

4. 59501E+05 

2.00 

0.57143 

lOG.O 

4. 55500E+05 

2.00 

0.57143 

150.  0 

4. 54085E+05 

2.00 

0.57143 

200.  0 

4.53361E+05 

2.50 

0.66667 

50.  0 

4. 66132£^05 

2.50 

0.66667 

100.  0 

4. 62839E+05 

2.50 

0.66667 

150.  0 

4. 61688E+05 

2.50 

0.66667 

200.  0 

4. 61 1 02E+05 

2.50 

0.57143 

50.  0 

4. 67831E+05 

2.50 

0.57143 

100.  0 

4. 63758E+05 

2.50 

0.57143 

150.  0 

4. 62317E+05 

2.50 

0.57143 

200.  0 

4. 61580E+05 
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VF 

3 

8.00000E-91 

El 

3 

5.00000£^07 

RHOl 

8 

2.42800E-04 

NUl 

8 

2.00090E-01 

RQl/ROfl 

NU1/NU2  E1/E2 

C 

1.50 

0.66667 

50.0 

4. 67 1  STEADS 

1.50 

0.66667 

100.0 

4.63924E'»05 

1.50 

0.66667 

150.0 

4.6275tE4'0S 

l.SO 

0.66667 

200.0 

4.62I43E«0S 

1.50 

0.57143 

50.0 

4.68762E4’05 

l.SO 

0.57143 

100.0 

4.64837E«05 

1.50 

0.57143 

150.0 

4.63388E'»05 

1.50 

0.57143 

200.0 

4.62633E4-05 

2.00 

0.66667 

50.0 

4.75729E4’05 

2.00 

0.66667 

100.0 

4.72438E4-OS 

2«00 

0.66667 

150.0 

4.  71242E'»0S 

2.00 

0.66667 

200.0 

4.70624E4'0S 

2.00 

0.57143 

50.0 

4.77363E'»05 

2.00 

0.57143 

100.0 

4.73367E+05 

2.00 

0.57143 

150.0 

4.7I891E'i-05 

2.00 

0.57143 

200.  0 

4.7112224-05 

2.50 

0.66667 

50.0 

4.81 105£-^05 

2.50 

0.66667 

100.0 

4.77776E^05 

2.‘^0 

0.66667 

150.0 

4.76567E^05 

2.50 

0.66667 

200.0 

4.75942E+05 

2.50 

0.57143 

50.0 

4.82758E40S 

2.50 

0.57143 

100.0 

4.78716E^05 

2.50 

0.57143 

150.0 

4.77223E^05 

2.50 

0.57143 

200.0 

4.  76446E4^05 

VF  = 

5.00000E-01 

•E 


TIME:  5.59  SECS. 
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APPENDIX  XII 


DESCRIPTION  AND  COMPUTER  PROGRAM  FOR  THE  DETERMINATION  OF  * 
^2,  and  O3  IN  A  HEXAGONAL,  MULTIFIBER  ELEMENT 


DESCRIPTION  OF  THE  COMPUTER  PROGRAM 

The  progrem  is  written  In  FORTRAN  63  (COC  version  of 
FORTRAN  IV)  for  the  Control  Date  Computer  Mod  3600.  The 
program  Is  a  straight  forward  calculation  of  the  coefficients 
In  the  Airy  Function,  an  evaluation  of  displacements  and 
stresses  along  the  Interface  and  hexagon  boundary  and  then 
some  double  integrations  to  obtain  Oi,  O2  and  03. 

The  program  consists  of  the  following  main  parts. 

1.  A  main  program,  calling  the  three  major  subroutines, 
which  are: 

2.  PTMATCH 

3.  CHECK 

4.  OMEGAS 

Below  Is  a  descript1u,i  of  these  individual  subroutines  and 
their  function. 

Subroutine  PTMATCH 

PTMATCH*  Reads  the  input  parameters. 

Calculates  the  matrix  elements  for  the  54  equa¬ 
tions  with  the  27  unknowns. 

Forms  the  normal  equations. 

Solves  the  normal  equations  In  double  precision. 
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Back  substitutes  these  so1utl9irs  Into  the 
54  original  equations. 

PTMATCH  uses  the  following  subroutines: 

LISTARAY  a  subroutine  to  print  and  label  matrices 
SOLVE  a  subroutine  which  solves  linear  systems 

of  equations  by  Iterating  on  the  residuals. 

Since  SOLVE  Is  a  useful  general  purpose  subroutinef  its  usage 
is  described  here. 

CALL  SOLVE  (A,8 ,X ITER) 

where  the  arguments  have  the  follcwing  meaning: 

A:  Square  matrix  wh^ch  contains  In  single  precision 

the  coefficients. 

B:  A  vector  with  the  right  hand  side  of  the  equations. 

X:  Contains,  after  return,  the  solution  in  single  precision. 

MH:  The  order  of  the  matrix  A. 

ITER*.  Number  of  iteration*. 

Presently,  SOLVE  assumes  the  matrix  A  to  be  of  dimension  (27,27). 
It  also  performs  exactly  ITER  iterations. 

SOLVE  uses  OPMATS  for  the  solution  of  the  linear  equations 
in  double  precision. 
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It  then  calcu'^tes  the  residuals  In  double  precision 
and  solves  the  syit  igain,  using  the  residuals  a*,  right 
hand  sides. 

This  procedure  works  In  the  following  way: 


Let 


I  •ik^'k  •  b1  •  0  1  «  1  ...  n 

k-1 


be  the  original  system  to  be  solved. 

Let  "k  be  an  approximate  solution  vector,  then 


n 

T. 

k»l 


*ik^k 


-  b, 


1  =  1  .  .  .  n 

residual  vector 
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Now,  try  to  improve  the  vector  x  by  a  Ax  so  that 


n 

E  a  (x.  ♦  Ax.)  -  bi  -  0 
k-1  “ 


Perform  the  following  operation 


“>k  * 


k  -  "i 


-  ”lk  »k  *  “u^k  •  “>* 


la 


i  k 


AX 


k 


-  r 


i 


which  means  that  the  correction  axj^  can  be  obtained 
by  solving  this  latter  system. 
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SUBROUTINE  CHECK 

This  subroutine  calculates  displacements  and  stresses 
along  the  Interface  and  the  hexagon  boundary,  not  only  at 
the  points  used  In  PTMATCH,  but  also  at  points  between.  Check 
used  the  subroutines  DISPL  with  the  entry  points  URl,  UTHl  , 
UTH2,  UR2  and  STRESS  with  the  entry  points  SR2,  STH2,  TAU2 
SRI,  STH1  and  TAUl,  The  two  routines  OISPL  and  STRESS  are 
also  used  by  the  subroutine  OMEGAS.  A  list  of  the  different 
entry  points  and  their  function  Is  given: 


OISPL  (U.R, THETA) 

Input:  R,  Theta 

output:  U 

ENTRY  POINT 

U 

URl 

UTHl 

< 

UTH2 

UR2 

URl  OR 

au^^/^r 

UTHIOR 


dU^/ar 


millpmuiuRyi 


mm 


URIOTH 

UR20R 

auJVar 

UTH2Dk 

8uJ‘/>r 

UR20Th 

suJVae 

UTH20TH 

3uJ^/3e 

STRESS  (R,  THETA,  SIGMA) 

input;  R,  THETA 

output;  SIGMA 

ENTRY  POINT 

SIGMA 

SR2 

STH2 

1 1 

“e 

TAU2 

1 1 

‘^ro 

SRI 

I 

V 

STHl 

I 

% 

TAUl 

I 

°re 
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Subroutine  OMEGAS 

Calculates  Oi,  and  nj  using  equations  81,  82  and 
83  as  given  In  the  Appendix  A.  It  uses  the  double  Inte¬ 
gration  routine  DOUBLE,  whole  usage  Is  described  In  the 
listing  of  the  source  program.  The  external  subroutines 
FI.  F2.  WlBAR  and  to28Aft  represent  the  Integrands. 
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4.  USAGE  OF  THE  PROGRAM 

Tfie  program  requires  the  following  Input: 

CARO  1  :  Vp,  »,  e‘,  e’*,  v“ .  o' 

(Fornot  8E10.S) 

where 

Vp  ■  percentage  of  fiber  (e.g.  0.65) 
a  ■  radius  i  fiber  in  Inches  {e.g.  0.0025) 

■  Voung's  modulus  for  fiber  In  Ibs/sq.  inch 

(e.g.  10  CCO  000) 

E^^  ■  Young's  modulus  for  resin  in  Ibs/sq.  inch 

(e.g.  380  000) 

0^  •  Pcisson  constant  fiber  (e.g.  0.2) 

•  Poisson  constant  resin  (e.g.  0.35) 
cj  *  strain  in  2  direction  (e.g.  -1.) 

■  density  of  fiber  ( si ugs/ i nch^  )  (e.g.  2,42754  10'^) 

CARO  2  :  0^* 

(Format  E10.5) 

where  p^^  «  density  of  resin  (slugs/inch^) 

(e.g.  1.15942  10"*) 
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CARO  3  : 
(Fornit  no) 


ITER 


where 


ITER  Is  the  number  of  iterations  in  the 
solution  of  the  normal  equation  (2  or  3  is 
enough) . 
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r\  r\  f\  n,  r\  0'>r>r»r» 


PPDCRAM  HFXAGON 
C 

C  JHl'  program  COXBINES  THE  EARLIER  PROGRAMS  PT^^^TCH  »♦ 
C  *«  PT.yATCH2  ♦*  AND  **  OMEGAS  INTO  C.\E  SINGLE  PROGRAM 


PTMATCH  READS  THE  PARAMETERS  AND  ThEN  FINDS  THE  COEFFICIENTS 
OF  THF  AIRY  function 

CALL  PTMATCH 


CHECK  CALCULATES  DISPLACEMENTS  AND  STRESSES  ALONG  TH*:  INTERFACE 
AND  THF  HFXAGON  BOUNDARY 

call  check 
c 
c 

call  omegas 

c 

C  CALCULATES  THE  THREE  VALUES  OMEGA  1.  OMEGA  2»  AND  OVcGA  3 
STOP 
END 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 


c 

c 


c 

c 

c 

c 


SUBROUTINF  PTMATfH 

PROGRAM  FINOS  AND  PUNCHfS  TH!  COEFFICIENTS  FOR  THE  PLAIN  STRAIN 
PROBLEM  WITH  A  HEXAGONAL  FtRPR  ARRANGEEMENTt 

IT  USES  t  POINT5»  AT  ThE  INTERFACE  AT  THE  ANGLES  OF 
THETA  •  0 
theta  ■  PI/AS 
THETA  ■  2«PI/4R 

theta . . 

THETA  •  PI/6 

AND  9  POINTS  AT  ThE  HEXAGON  BOUNDARY  AT  THE  SAME  ANGLES. 


The  EOUATIONS  expressing  displacements  are  all  VULTIPlIED  ‘WEIGHTED) 

WITH  El 

DOUBLE  PRECISION  IS  USED  TO  SOLVE  THE  NORMAL  EQUATIONS 


COMMON  /  INPl/  VF.AA.£l.t2*FNUl.FNu2»£Z.BBtPi 
COMMON/COEFCT/  AN2tH)  .BN2(4)  .CN2(4)  *0N2  (  L  )  *AM  ( 4  )  .CM  ( A  )  . 

*  802.C02.C01 

COMMON/RHOS/  RH01.RH02 

DIMENSION  A ( 5A.27  )  .ATR( 27.54) .AMT (27.27) .RmS ( 27 ) . B ( 54 ) . SCR ( 2 7 ) 

input  data 

PI  ■  4.*ATAN( 1.  ) 

READ  883.VF.AA.E1 .E2.FNUl.FNU2.EZ.RH01.RH02 

883  FORMAT(8£10,5) 

READ  8R4.ITFR 

884  FORMAT(enO) 

BB  ■  AA*S0RT(PI*5.0PTM,j/(6v»VF)) 

PRINT  995.VF.AA.F1 .E 2 .FNUl . FNU2 .EZ .RHOi . RH02 .86 
995  format  (IIM  input  DATA  /// 

1  7H  VF  •  f 15.5  / 

27HA  ■E15.5/ 

3  7h  El  -  E15.5  / 

4  7H  E2  ■  E15.5  / 

5  7h  NU  1  •  F15.5  / 

6  7H  NU  2  ■  E15.5  / 

6  7h  EZ  •  F15.5  / 

7  7H  RMO  !■  FI  5,5/ 

8  7h  RHO  2«  E15.5/ 

7  7H  B  ■  E15.5  /  ///) 

«  MM  •  27 


DO  50  J  -  l.?7 
DO  50  I  •  1.54 
50  AM  .  J)  •  o.n 
DO  55  I  •  1.54 
55  RM  )  ■  0.0 

EQUATIONS  1  Thru  9  SIGMA  R  2  -  S’GMA  R  1  •  0 


R  «  AA 

DO  200  I  •  1.9 
FI  -  I 

theta  ■  (FI-1. )*PI/48. 
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c 

00  100  NN  a 

FN  a  J  N  a  6«NN 

rcou  •  tNN-ij*fc 

C*N  ■  C0H(^N»ThKTAJ 
IF  (ABS(CSN>.J.T.l.F-7j  fSN  a  0,0 
C 

A(l*ICOOl)  •  -FN*(FN-1.  J*R*#{N-2)*CSN 
A(I*rC0L42)  ■  -FN*(FN+1, )*R**(-N-2J»C5N 
A<ItlC0l^3)  •  -(FN>1, )«(FN-2.)«R«*N»CSN 
A<I*IC0L^4J  ■  -(FN-1.)*(FN42,J#R«»{-N)*CSN 
C 

ICOL  ■  (NN-1)*? 

A( I .IC0L4l7)aFN*lFN-l.J  *R**{N-2J»CSN 
A( I »IC0L^18)a(FN+l, )* (FN-2. jaRaaN*CSN 

100  CONTINUE 

A( I •2SJ  a  Ra#(-2J 
A{I«26)  a  2. 

A(1.27)  •  -?• 

200  CONTINUE 

EQUATIONS  10  THRU  18  UR  2 

E£1  •  (1.^FNU1)/E1  S  EE2  •  (K*FNU2)/E2 

00  400  I  a  1,9 
II  a  14.9 

Ra  AA 

.Mai 

Theta  »(Fi-i,japi/4a, 

00  300  NN  a  1*4 
FN  a  6*NN 
Na6«NN 

ICOL  a  (NN-1)*4 
CSN  a  C0S<FN«ThE7A) 

IF  IARS(CSN>.LT,l,r-7)  CSN  -  0,0 

A( I  I . ICOL^l )a-FN*R*a(N-l )aCSN»EF? 

A(  1  I  ,  ICOL4.2)  a  FN»Raa<-N-l)aCSN*FE2 
A(II»IC0L^3)  a  -(FN-2,44.aFNU2JaR**(N4.1  )*CS.S«EE2 
A(  1 1  ♦  IC0L*4)  a  (  FN4  2,-4,«FNU?  )*R*a(  -N4.n  '*CSN  <Et  2 

ICOL  »  <NN-1)*2 

A(II.IC0L*17)  a  FNaR#*(N-l )*EElaC5N 
A(II  •IC0L4.18)a(FN*2.+4,*FNUl  )«R»*CN4:  jaCSN*EEl 

300  continue 

A(II.23)  a  -R«*(-1)*EE2 
AH  1 .26)a2.«  <  l,-2,aFNU?»«R*EF2 
Al  II  .27)a-2,#n.-2.«FNUl)»R*FEl 

8< 1  I )a-FNU2aR«EZ  ♦  FNUi«R«E2 
400  CONTINUE 


multiply  equations  10  Thru  is  py  ei 


00  4?*.  I 
DO  420  J 
420  Ad  .J)  a 


a  lOdfl 
a  1,27 
Ad  ,JJ#E1 


-  UR  1  a  0 
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r 


■BW'PJW.  iu  JtlS'llPIl  r  TT 


42^  Rf n  ■  B( n«Pi 

c 

c 

C  *••  EQUATIONS  19  Thru  27 

c 

c 

00  400  I  •  1*9 
IT  •  I  'o  18 
R«  AA 
FI  »  I 

TMETA  ■  (FI-l4 J*PI/48* 

C 

00  son  NN  «  1*4 
FN  •  A.*NN  S  N  ■  6*NN 
irOL  ■  tNN-lJ*4 
SSN  •  S1N(FN*ThETA1 

IF  (ABS(SSN)  .tT«  1*E-7|  SSN  •  0«0 
C 

A(ir*ICOL^ll  ■  FN*(FN-l.)*R**rN-2I*SSN 
A<1I*1C0L*21  •  -FN*tFN^l.»*R**t -N-2)*SSN 
A<II*IC0L*3)  •  FN*eFN'>l.I*R**N«SSN 
A(II*IC0L*4)  ■  -FN*IFN“1,>*R«*(-N)*SSN 
C 

ICOL  ■  (NN-1)«? 

A(IItIC0L+17)  •  -FN*(FN-1*»*R**(N-2»*SSN 
A(IIfIC0L  +  18)  •  -FN*IFN4n*R**N*SSN 
C 

500  CONTINUE 
C 

600  continue 
c 
c 

C  •**  EQUATIONS  28  THRU  36  U  TmETA 

c 

c 

00  800  I  -  lt9 
II  ■  I  ♦  27 
R  ■  AA 
FT  -  I 

TMFTA  ■(FI-U*PI/4A, 

c 

00  700  NN  -  lt4 

FN  ■  6««NN  S  N  •  6*NN 

ICOL  -(NN-n^A 

SSM  •  SINIFN^THETA) 

n  (ABS(SSN)  .tT,  UF-7)  SSN  ■  0,0 
C 

Adi. ICOL  ♦  n«FN*R*«IN-n*SSN»EE2 
AdI»IC0L*2J  ■  FN*R*«(-N-n*SSN»EE2 
Adl.ICOL  ♦  3»  •  (FN^4.-'4.«FNU2»«R»*CN*1  dSSN^EEZ 
AdI.IC0L+4I  »  (FN-4.<*.4,«FNU2J*R»»I-N^i  »»5SN*EE2 
C 

ICOL  •  !NN-1‘«2 

AdI.IC0L  +  17J—FN*R«*CN-n*SSNnEl 
A(  I  I.ICOL^IBI  — (FN^4*-4,«FNUl»*»«»IN4.ldSSN«EEl 
C 

700  CONTINUE 
C 

800  CONTINUE 
C 
C 

C  multiply  EQUATIONS  28  THRU  36  BY  El 


TAU  2  -  TAU  \  •  n 


2  -  utmeta  1  ■  0 
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c 

DO  I  ■  28. 

00  82ft  J  «  1.27 
82ft  Ad.J)  •  A(| 

829  Bl I)  •  R( 1)  «  El 


EQUATIONS  37  Thru  49  UN  AT  HEXAGON  BOUNDARY  EQUALS  ZERO 
FIRST  PART  U  3  *  COS ( P I /6-THETA > 


00  lOftft  I  ■  l.R 
FI  .  1-1 
II  ■  U36 

fi  «  BR/C0S(PI/6.-FI*PI/48. J 
theta  w  FI*P1/46. 
r 

CTS  ■  C0S(PI/6. -THETA)  $  STS«S IN ( P I /6 .-TmETA ) 

IF  (ARS(CTS).LT,l.E-7)  CTS  ■  0.0 

IF  rABS<STS).LT.l.E-7)  STS  •  0.0 

C 

DO  POO  NN  »  1.4 

FN  ■  8«NN  S  N  »  S^NN 

ICOL  -(NN-ll^A 

SSN  *  SIN  (FN*THFTA) 

IF  (ABS(SSN)  .LT.  ;,E-7)  SSN  •  0.0 
CSN  ■  COS(FN*ThFTA) 

IF  <ABS(CSN) .LT.l.E-7)  C5N  «  0.0 
C 

A( I  I . lCOL  +  1 ) --FN^R^^IN-l )«£E2*CSN*rTS 
A(  I  I  .1C0L^2)»FN*R**(-N-1  )*EE2*'CSN*CTS 
A(  I  1  .  IC0L-*3)«-(FN-2.+4.*FNU2}»R»«(N+1  )*FE?»CSN«CTS 
A( I  1 . ICOL+4) ■<FN+2.-4.*FNU2)*R»*{-N*l )*EE2»CSN»CTS 

c 

900  CONTINUE 
C 

A(II.2S)  •«  -R*«(-l)*EE2*CTS 
A( li .26)-2.*< 1.-2,«FNU2)*R*EE2»CTS 
C 

R( I  I  I  •  -Fnu2*FZ*R*CTS 
C 

100ft  CONTINUE 
C 

C  SECOND  PART  U  ThETA  •  SIN  (PI/6  -  THETA) 

C 

DO  12ftft  I  -  1.9 
FI  >  I-l 
I  I  -  I  ♦  36 

R  RB/C0S(PI/6.-FI«PI/4fl.) 

THFTA  =  FI*PI/48, 

CTS  =  cos(Pi /6. -Theta )  r.  sts  ■  sin  (pi/6.  -  theta) 

IF  (ABS(CTS) .LT.I.E-7)  CTS  «  ft.O 
IF  (ARS(STS).LT.J.e-7)  STS  ■  0.0 

c 

DO  1100  NN  ■  1.4 

FN  «  6*NN  S  N  ■  6*NN 

c 

ICOL  «(NN-1)*4 
SSN  =  SIN(FN»THETA) 

IF  (ABS(SSN)  .LT.  l.E-7)  SSN  «  0,0 
"SN  ■  C0S(FN*THETA) 
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r»o  r\  n  r\  n  r%  rt  f\  r\  r»r»r» 


IF  (A;iS.'C.'»\ULT,l,--7)  CSN  •  0,0 

C 

A I  1 1 .  irCL<-l )  -A  «  1 1 .  ICOL^I  N-U  oEE2*SSN*STS 

Al 1 1. lCOL-2)  •  A(II.1C0L^2)  ♦  FN«R**(-\-1>*EF2«SSN*ST5 
A(  1 1  .1CCl«-31*A«  n*IC0L^3l^<FN^4.-4,*FNJ2»»R««<N^n*EE2*SSM*STS 
A( 1 1 « 1C0L^4)»A(I I ♦IC0L^4I4CFN-4.*4.*FNU2)«R»«  <-N*l »»EC2»55N«STS 
C 

noo  continue 

c 

1200  continue 


multiply  equations  37  TmRU  45  RY  El 

00  1225  I  •  37*45 
DO  1220  J  -  1*27 
1220  A(I«J)  -  A(I»J)  •  El 
1225  R<1)  ■  BID  •  El 

EQUATIONS  46  -  54  TAU  NT  AT  HEXAGON  BC/JNDARY  EQUALS  ZERO 

FIRST  PART  -0.5«SIGMAR*SIN<PI/3-2«THETAJ 

00  1400  I  «  1*4 
FI  -  I  -  1 
II  ■  U45 

fi  ■  fl8/C0S(PI/6.-FI»PI/4fl* J 
theta  «  FMPI/48. 

STN  «  -n.5#SlHF{P!/3*-2. ♦THETA) 

IF  (AflS(STN).LT.l,E-7)  STN  •  0*0 

DO  1300  NN  »  1.4 
FN  a  6«*NN  S  N  a  6*NN 
ICOL  a  (NN-l)  «4 
SSN  a  SIN<FN*ThETA ) 

IF  (ABSISSN)  .LT,  1.E«7)  SSN  -  0,0 
CSN  a  COS»FN*THeTA) 

IF  lARS(CSN) .LT.l,E-7)  CSN  •  0,0 


A( I  I. ICOL  +  l )  a-FN«(FN-l,)«R«*IN-2)*C5N»STN 
AH  I  .IC0L^2)*~FN»(FN+1,  )«R««1-N-?)»CSN«STN 
A( I I»IC0L+3)«-CFN4l,)»(rN-2,)*R*«N*CSN«STN 
A,'  I  I  .IC0L^4)a-(FN-n»(FN^2.  ;*R**I-N)*CSN*SrN 

1300  CONTINUE 

A( I I.?5)  a  R*»<-?)»STN 
Adi, 26)  -  2.*STN 
1400  CONTINUE 


SECOND  PART,,  SIGMA  THETA  *0,5  *  SIN(PI/3.  -2*THETA) 

DO  1600  I  a  1.9 
FI  a  I-l 
II  a  I  ♦  44 

R  a  RB/C0S(PI/6.-FI»Pl/4fl.) 

ThFTA  a  Fr*PI/48, 

STN  a  0,‘ii'‘)IN(PI/3,-2.*THFTA) 

IF  (ABS(STN),LT,1.E-7)  STN  a  C.O 
C 

00  1500  NN  a  1*4 
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fn  •  6»N\  8  N  ■  6*NN 

tCOL  ■  (NN-1I*4 
S5N  ■  SIN(?N*ThETAJ 

*  IF  (ABS(55N)  .tT,  l,F-7)  S5N  •  P.O 
CSN  ■  C05(FN*ThETA) 

IF  (ARStCSN)«LT.UF-7)  CSN  •  O.P 
C 

A(lI.ICOL^l)  ■  A( Ilf IC0L4:I4FN*{FN-1#)*R**IN-2)*CSN*5TN 
AIM#  iCOL-ra » ■  A  { 11  #  IC0L^2 ) ♦FN#!  FN^l .  )  <  -N-2 )  •CS.\*STN 

A(11#IC0U*S)  •  A( Mf lC0L^3)^(FN»l#)*(FN42t)«R**N«CSN*STN 
Ani»lC0L44)»Al  IIflC0L^4)^«FN-i#)<»!FN-2.»*R««l-N)*CSN*STN 
C 

1500  CONTINUE 
C 

A(IIi25)  ■  A(nf25)  -  R**<-2J  *  STN 

A(!  I*26i  »  A( n  *26)  4  2»«STN 
C 

1600  CONTINiJE 


THIRD  PART  TAU  R  THPTA  *COS(PI/3  -2*THETA) 

DO  lano  I  «  1.9 
II  •  I+4«> 

FI  -  I-l 

R  ■  8B/C0S(PI/#»-FI*PI/48.  ) 
theta  ■  FI*PI/48. 

CT?<  *  COS{PI/3.-2**ThFTA) 

IF  (A8S(fTN).LT,  l,E-7)  CTN  ■  0,0 

DO  170C  NN  ■  1,4 
FN  ■  6»NN  S  N  *  6*NN 
ICOL  «  (MN-1)  *4 
SSN  »  SIN<FN*ThFTA) 

IF  (ARS  (S5N).LT,1,£-7)  5S  .  ■  0,0 
CSN  -  COS(FN«THFTA) 

IF  (ARS(CSN),LT.1,E-7)  CSN  ■  0,0 

All  I  .ICOL-fl  )-A(  I  I  ,ICOL  +  I  )+pn*<FN-1)«K**(N-2)*S5N»CTN 
A(I  I  .ICCL4-2)-A(  I  I  .ICGL+2) -FN*(FN+1,  -N-2  !«SSN*CTN 

A( I  I.IC0L  +  3)»A( II ,IC0L  +  3)*FN»(FN*1)*R»*N*SSN«CTN 
A(  I  I  *  ICOL*4  )«A(  I  I  ♦IC0L+4)-FN*{FN-l,  )*R**(“N)»SS  'C*CTN 

1700  CONTINUE 

laoo  CONTINUE 


FORM  A  TRANSPOSE 

DO  2000  I  •  1.27 
DO  2000  J  -  1.54 
2000  ATRI I .J)  »  A( J.  I  ) 

FORM  NORMAL  EQUATIONS  BY  PREMULTIPLYING  WITH  A  TRANSPOSE 

DO  2120  I  ■  1.27 
DO  2120  J  •  1.27 
DO  2120  K-1,54 
C 

2120  AMT(I.J)  ■  AMT(  I.J)4-ATRn.K)*AIK.J) 

DO  2130  I  ■  1.27 
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r»  r>  o  r» 


DO  2130  <  ■  l»f:« 

2130  KHSil)  ■  RHS(  I  )v^ATR(  I  fXMBOCI 
C 

C  PRINT  MATRIX 

call  LISTARAYIA«94«5A«27(1 ) 

C 

c  print  matrix  of  normal  fouations 

call  LISTARAV  IAMT,27.27»27,n 
CALL  LISTARAY(RhS«27«27«1«1) 

c 

c 

C  SOLVE  NORMAL  EQUATIONS  USING  DOUBLE  PRECISION  AND  ITERATING  ON  THE 

c  residuals 

C 

call  solve  ( amt. RHS. SCR. MMt ITER) 

DO  33S9  I  «  l.MM 
3^35  RMS(  I )  •  SCRM  ) 

DO  2430  N  ■  l.H 

NN  •  S  NNN  •  (N-l)#2 

AN21N)  »  RMSn+NN) 

PN2<N)  ■  RhStr+NN) 

CN2(N)  «  RH3e^+NN) 

ON?(N)  »  RHSJ44-NIM) 

ANl (N)  *  RHS{17*NNN) 

CNKNl  •  RHS(18<*NNN) 

2450  CONTINiiE 

B02«RHS<25) 

C02  »  RHS(261 
COl  *  RHS(27) 

992  FORMAT! I 10.P20,6) 


•**  BACKSUBSTITUE  INTO  THE  ORIGINAL  54  EQUATIONS 

print  99Q 
999  format (iHl) 
print  Q97 

997  FORMAT!  •  BACJ^  SUBSTITUTION  INTO  54  ORIGINAL  EQUATIONS*/ 
•9X.*I • .lOX.’RHS* .lAX. ‘BACK • //» 

00  2300  K  »  1.54 
RACK  ■  0.0 
DO  2225  J  »  1.27 

2225  BACK  »  BACK  ♦  RHS ( J ) *A I K ♦ J ) 
print  994.  K.  BfK).  BACK 
994  FORMAT! I10.2E20.4) 

2300  continue 
RETURN 
END 
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SURPOiJTIN-  ChTC>^ 

This  prog.'^am  chechs  tme  bowndary  conditions  in  the  point  matching  pro 


COMKON  /  INPT/  VF*AA*C1*E2»FNU1.FNU2*EZ»BB*PI 
COMMON/COEFCT/  AN2(4)i8N2U)  »CN2(4)  *0N2(4»f  ANIU)  *CNi(4S» 
•  BO2.C02*CO\ 

equivalence  (a«aa) «(b*bb) 

CHECK  THF  displacements 


PRIM  905 

995  FORMAT! IHI) 

TFST  AT  INTFRFACE 

delta  -  PI/96. 

R  >  A 
PRINT  99? 

992  FORMAT!'  TEST  D I SPLACEMENTS  AT  INTERFACE'// 

•7X* 'THETA' .ex. 'UR  l'.12X.'UR  2'.6X.'U  TmETA  I'.SX.'U  ThcTA  2*///) 
DO  100  I  •  1»17 
FI  -  I-l 

THETA  ■  F!  tOELTA 
call  UR1!U1.R*Tm£TA» 
call  UR2!U2.R. THETA) 

CALL  UTKl (U3*R.TmETA) 

CALL  UTH7(IJ4.R. THETA) 

PRINT  991 .TmETA.UI .U2.U3.U4 
991  format  !5F15.4) 

100  CONTINUE 

CHECK  AT  HEXAGON'BOUNOARY 

print  995 
PRINT  996 

996  FORMAT!'  TEST  DISPLACEMENTS  AT  HEXAGON  c.OU\D«.^Y  •  /  / 

•  7X. 'THETA*  .lOX.'R' .IBX.'UR  2*.10X»'U  T-.ITA  2*.6X.*U  NORMAL  2*.//) 
DO  200  I  ■  1.17 
FI  ■  I-l 

ThFTA  ■  FI  •  DFLTA 
R  «  B'COS!PI /6.-THcTA) 

CALL  UR2!U2.R.THE7ai 
CA!  L  UTh’(iI4.R»TmETA) 

UN  »  U?«cnsipl /6. -THETA)  ♦  U4*S I N ! P I /6 . -THE TA ) 

PRINT  991 ,THFTA.R.U2sU4.U\ 

200  CONTINUE 


cm£c<  The  sTSfSsrs 
*  teat  a:  :\tfrfac£ 

PRINT  995 
PRINT  090 

890  FORMAT!'  TEST  STRESSES  AT  INTERFACE'//) 

R  ■  A 

DO  300  I  •  1.17 

FI  -  I  -  1 

THETm  •  FI  «  delta 
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call  spi;r.the:a.  sd 

CALL  STH;(fi*THFTA#Sl ) 
call  SThI <R*THETAtS2J 
CALL  TAU:  »’R.TMFTA.S%» 

CALL  SR2(R.TMETA«S4) 

call  sth2<R. Theta. S5) 

CALL  TAU2(R.TmETa.S6J 

PRTNT  997.  THETA .51 tS2*S3 .54 .SS tS6 

997  FORMATt*  TH£TA« • .E15.4.3X. • 5  R  1  •• .E15.4.3X. ‘S  ThETA  1  ■•fE15.4. 
•3X.»TAU  1  ■•«E15.4/ 

•23X.'5  R  2  ••.E19.4«3X.'5  ThETA  2  -'.EIS.A. 

•  3X. ‘Tau  2  .F19w4//) 

C 

100  continue 
c 
c 

c  TEST  AT  hexagon  BOUNDARY 

c 

print  9P1 
PRINT  ft91 

891  FORMAT (•  TEST  STRESSES  AT  HEXAGON  BOUNDARY •//» 

DO  400  I  ■  1 il7 
FI  •  I-l 

THFTA  *  FI  •  DELTA 
R  •  R/C0S(PI/4.  -  THETA) 
call  SR2(R.THETA.S1 I 
call  STH?(R. THFTA.  S2 ) 
call  TAU2<R. THFTA. S3) 

TAUNOKMa-C.S*(Sl-S2)*SIN<PI/3.-2.*THETA)+S3»COS(PI/3,-2c*Th£:A) 
print  993.THETA.R*Sl.S2.S3.TAUN0Ry 
993  FORMAT!'  THETa  • 'EIS.A.IX. 'R  ■ • t E 1 S .4 . 3X . ' S I GMA  P  2  «'.E1S.4> 

*3x. 'SIGMA  Theta  z  »'.eis.4/ 

•26X.'  TAU  2  ■' .EIS.4,3X» 'TAU  NORMAL  «'»E:S.4//) 

400  continue 

RETURN 

END 
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r%  ^  r\  r*n  oork^to 


SU^IOliTJS*  ft‘<EriAS 

CAlCULATCI  OMgdA  1  OMiaAl  AND  0MI9A  I  ir  OOUlWI  INTIttKATION 
UAtNn  FflUATtONS  II «  II*  AKD  IS* 

FKTriNAL 

IXTCINAL  WllAliMlIAl 
eoinvALENce  iaiib) 

eOUtVAu'NC!  (AtAA) 

COMMON  /  INPT/  VF*AA«Sl*e2*FNUl*FNU2*U»IB*^t 
COmmon/RmOS/  HH01*RH02 


call  double  (0««P!/6k*0.*Ail«C-4*20*ReSliINTxl»RItFl) 

PART’  >  7ESl»9:i0l 

CALL  DOUBLE  (U»OtPl/6««A*B/COS<Pt/12t)»lke-6i20«RCS2»INYX2*R2»F3) 
PART2  •  RES2«Rm02 
PRINT  O‘J‘5 
995  RORmat( iHl J 

m  oart:  ♦  part? 

QMl  a  .OM]  •  ]?, 

PRINT  091 *0^1 

991  FOR^^AK ///.BH  OMtGAl-  E?0*5» 

0MEGA2  «  RH01«A»*2«»PI/2R.  ♦  RH02«  ( B«*2/S0ftU  3.  )  •'A**2*PI /6*  )  /4. 

0MFGA2  »  CMfGA?  •  12. 

PRINT  094  «0*^FCiA2 

994  FCR^'ATf/z/.^M  0MFGA2»  F20,5) 

CALriJLATf  -IVF^aT 

TFIlI  *  f  1 ‘A**?*!!  ! /?4« 

TElL2«f2/4.*( P**2/SURT ( 3. )  -A**2*PI  /6.  ) 

call  DCoRLE  «  u.  .P  1/6.  *0.  f  A,UE-<»,20»RES3.  INTX3*R3»WIBAR) 

CALL  DOURLEI - . . P I /6 . . A . B /COS < P I / 1 2 . ) ♦ I . E-4 *20 *RES4 . I NTX4 ♦ R4 .W2BAR ) 
CMcr,A’>«''r  y  L  1  .TFf  L2>RFS3*RES4 

-  '•MrfjA*  •  IP, 

PRINT  ORF.nvFGAT 

998  F09Ma^f///8M  O-^EGAl-.  F20.5J 
RETURN 
END 
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r 


SUBROUTIN:^  OlSPL<UtR*THFTA) 
common  /  INPT/  VF«AA.£1«C2«FNU1*F.\U2*C2«BB«P1 
’  COMMON/COEFCT/  AN2{4)tBN2l4)*CN2U)»ON2UJiANlU!.CNH4). 

•  BA2«C02«C01 

ENTRY  IJRl 
U  •  0*0 

DO  100  NN  •  1«4 
N  ■  6«NN 
FN  >  N 

U«U-(AN1(NNI*FN*R**(N-1)  ♦  CNUNN  >  *  (  FN-2  •♦4.«FNU1 )  •«*•  I  N*1  »  ) 
I  *  C0S<FN*TMETA) 

100  CONTINUE 

U  ■  U  ♦  C01’»2.*(  1.-2.*FNU1J*R 
U  •  U*(  U+FNUl  )/£l 
U  ■  U  ♦  FNU1*E2*R 
RETURN 
C 
C 

ENTRY  tlTHl 
U  ■  0,0 

DO  200  NN  «  1*4 
N  »  6*NN 
FN  -  N 

T1  •  FN*AN1 (NN)*R*»(N-n 

T2  ■  <FN  ♦4.-4.*FNUl  )<»CN1  (NMI  *R**  (N-t-i  ) 

U  ■  U  ♦< Tl4T2)*SlN(FN*THeTA) 

200  CONTINUE 

U  ■  U*(1.^FNU1 )  /  El 
RETURN 
C 
C 

ENTRY  UTH2 
U  ■  0.0 

DO  300  NN  »  1#4 
N  ■  6*NN 
FN  ■  N 

T1  «  FN*AN2(NN)*R«*CN-1 ) 

T2  •  FN*BN2(NNI*R»»(-N-1) 

T3  ■  (FN+4.-4,*FNU2)*CN?(NN}*R**lN^l) 

T4  ■  (FN-4,^4.*FNU2)«0N?(NN)»R**{-'N+1  ) 

U  ■  U+<T14T2^T3^T4J«SIN{FN*THETA) 

300  CONTIN(JF 

U  -  U*n.^FNU2)/F2 
RETURN 
C 
C 

ENTRY  UR2 
U  ■  0.0 

DO  400  NN  *  I  *4 

N  ■ 

FN  ■  N 

T1  ■  FN*AN?(NN)*R**(N-1 ) 

T2  •  -FN»BN2(NN)*R*»(-N-1) 

T3  ■(FN-2.^4.»FNU2)»CN2(NN>»R**(N4.1  ) 

T4  •  -(FN+2.-4.*FNU2)*DN2(NNJ*R**(-N41) 

U  ■  U  -(Tl+T2^T3^T4)  *  COS< FN«TMETA ) 

400  CONTINUE 

U  »  U  ♦  ?,*( l.-2.*FNU2)»f02*R 
U  ■  U  -R02»R**(-1) 

U  ■  U* ( I.^FNU2) /E2 
'J  ■  U  ♦  FNU2*EZ*R 
RETURN 
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FNTRY  UR13S 

U«0«0 

DO  ^00  NN-1«4 
•  N«A«NN  S  FNbN 

TI«FN«<FN-1. )*ANl(NN>«R«»(N-J) 
T2«(FN-2i44.«FNUn*(FN^l.  J»CNllNfU#R**N 
li»U-  ( T 14T2  J  •COS  ( FN*TMFTA ) 

son  continue 

U»U*2.*a.-2i*FNUH«C0l 

u«u«Jii*FNun/ci 

U»U^FNUI*C.*. 

RETURN 

c 

c 

FNTRY  UTmIOR 
U*0.0 

00  600  NN«1«4 
N«6*NN  S  FN»N 

Tl»?N«{FN-!. )*AN1 (NN!«R*«(N-2) 

T2«  (FN*4.-4.»FNU1  >•  (FN41,  )«CN1  1NN)»R«»*N 
U«U^f  TUT2)*SIN(FM«TmFTA) 

6C0  CONTINUF 

U«U*M  .♦FNdl  )  /El 
RETURN 
C 
C 

ENTRY  uRIOTh 
u«'),n 

00  TOO  NN«1 *4 
N«6«NN  i  FN.N 
TUFN»AN1  {NNJ*R*«<N-1  > 

T2« (rN-?.*^, •FNUl )«CN1 (NN)*R«*tN+l ) 

U»U><  TWT2  J»FN»SIN(FN*ThETA> 

700  CONTINUE 

U«U»(  l.+FNl'l  )/El 
RETURN 
C 

c 

ENTRY  UTmIOTM 
U«0.0 

00  800  NN-1  .4 
N«6»NN  S  FN«N 
T  1»FN»AN1  INN)»R*«(N-1  ) 

T?b (FN^4,-4,«FNU1 )»CN1  (NN)«R»«(N+1 ) 

7  1-*T2)»FN«COS<FN*ThETAI 
800  CONT INUF 

U»U*  (  1  .♦FNlJl  )/El 
RETURN 
C 
C 

ENTRY  UR?DR 

IJ«0,n 

no  Qon  NN»i»4 

N«6»NN  t  FN«N 

T1-FN» (FN-I. )»AN?(NN  >»R»»IN-2> 

T2»-FN»(-FN-1 . )»BN2(NN1 •R»*(-N-2) 

73- (rN-2.>4,*FNU2)» (FN+1. )«CN2(NN)*R*»N 
T4.-rFN^2.-4,»FNU2 ) • t -FN+1. )«DN2CNN)*R**(-N) 
U«U-( ^1^T2*T3^T4)*C0S(FN»TMETAJ 

000  continue 

U-U4P02*R*»( -2  ^♦C02»2€*( 1 .-2»*FNU2) 

U-U« ( 1.+FNU2) /E2  ♦  FNU2*EZ 
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n  r\  rt  r»  r» 


T 


RETIISN 


FNTRY  lJTH?r>R 

ii«o.n 

no  1000 

*  FN»\ 

T 1 - FN* ( FN - 1 . ) *  AN  ^ ( NN  t  #R  »• f  N- ? I 
T2*FM«  (  -FN-1  • 

T3-  (FM*4.-4.*fnu,’)*{FN*1. 

T/.«  (FN-<.,-*.<..*FNU?)«-(-FN+l.  }  •0N2  i  NN  >  *R*»  ( -N ) 
0«U+<  ''l-*’T?-*.T3<t-T4)*5lINJFN*THtTA» 

1000  CONTINUE 

U»U« ( l.^FNU? \ /F? 

RFTURN 


ENTRY  UR2nTH 

U«0.0 

00  1100  NN»1»<. 

N«A«NN  5  FN»N 
T1«FN»AN?(NN1*R**(N-1  ) 
T?«-FN*nN?(NN|*R**l-N-l ) 

T3«  (FN-?.-»<.«*FNU?)»fN2fNN»*R*«  (N*l  ) 
T*.-(FN4?,-4.»FNtl?  )  *DN2(NN)  «R**(-N^13 
U»U<-(T1*T?-»T3  +  T<.  )«FN»SIN«FN*THETA  J 
1100  CONTINUr 

U»U»( 1 .♦FNU? ) /Z2 
RETURN 


FNTRY  tlTH?OTH 

u*o.n 

DO  1700  NN«1  .A 
N«6»NN  S  FNaN 
T1-FN*AN?(NN)*R**(N-1  J 
. 2-FN*flN2(NN»*R**(-N-i  ) 

1  l.f  r\*A,-A.*FNU7j*fN7(NN)«R<»-’«N  +  l  ) 
T/.«  (FN-A.^A.^FNU^I^ONPJNNl^R^^i-N  +  l  ) 
U<-U-*  i  T  l4T2*T  A  +  Ta  )*FN*f05(FN*THFTA  ) 
1700  CONTINUF 

U»U«  <  1  •♦F'.'UZ  )  /F2 

RETURN 

END 
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SU»^«OUTINr  STHrSS  (R»THFTA#$10MA) 

r 

COMMON  /  INPT/  VFiAA«ei«CliFNUl«FNU2«C2«Aft*^l 
COMMON /COCFC 7/  AN2I4)  iRN2IA^»CN2U)  lONtU)  tANKA)  iCNllA)  • 
•  lOStCOliCCl 

C 

CNTNY  SA2 
AIOMA  e  0*0 
00  100  NN  ■  1*4 
N  ■  A*NN 
FN  ■  N 

T1  ■  FN*(FN-1, J*AN?(NN)*R«*{N-2) 

T2  ■  FM»(FN+1. J*flN2<NN)*R**(-N-2> 

T3  «  (FN+1. ) *(FN-2. )*CN2<NN)*R**N 
T4. (FN-l. )*(FN+2«  J«0N2(NN)*R**(-N) 
sigma  «  SrGMA-(Tl  +  T2  +  T3*-T45*COS{FN»THETAI 
ion  CONTINUE 

SIGMA  «  SIGMA  ♦802*R**(-2J  ♦  C02*2* 

RETURN 

C 

C 

ENTRY  STH2 
sigma  >  0«0 

00  ?00  NN  -  1.4 
N  ■  A*NN 
FN  •  N 

Tl  ■  FN*(FN-U  )*AN2(NN)»R»*(N-2J 
T2»FN*(FN  +  1#  J*BN2(NN)*R**(-N-2» 

T3  ■  »FN*>1*|*(FN+2.  J*CN2<NNI*R#*N 
T4«(FN-lt  )*(F.S-2.  )*0N2<N*.»»R»*(-NJ 
SIGMA  •  .SIGMA*(T1  +  T2-*>T3>T45#C0S(FN*THETAJ 
20n  CONTiNtie- 

sigma  »  Si*GMA-fl02*R**(-?)^2**C02 
RETURN 
C 

c 

ENTR/  TAU2 
sigma  «  0.0 

DO  300  NN  ■  1*4 
N  ■  6*NN 
FN  .  N 

Tl  ■  FN*(FN-1 • )*AN2 (NNI *R** (N-2  ) 

T2»-FN'KFN>1  .  ^•3N2{^NI•R••(-N-2J 

T3  ■  FN*IFN+1 . )*CN;(NN)*R**N 

T4  «  -CN*<FN-’..)»DN2<NN|»R**{-N) 

sigma  •  SIGMA  ♦  (T1+T2-*>T34T4)*SIN(FN»THETA) 

300  continue 
RFTURN 
ENTRY  SOI 
sigma  r  0,0 
DO  400  NN  »  1»4 
N  ■  A*NN 
FN  »  N 

Tl  »  FN*(FN-1. )«AN1(NN)»R»*(N-2J 
T2  ■  IFW+l, »• JFN-?, J*rNl <NN|*R**(N) 
sigma  ■  SIGMA  -  (TlfT2»«C0S(FN*TMFTA) 

400  CONTINUE 

SIGMA  •  SIGMA  ♦  2,*C0I 
RETURN 

c 

c 

ENTRY  STMl 
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n  r» 


STfiVA  •  ;-,0 
00  403  NN  •  1*4 
N  •  A«NN 
rN  •  N 

tl  •  rN4(fN-liMM{NN)«ll««IN-2l 
TI^irN^l.J*<FN<?.)*CN!CNN|4H4#N 
S:0MA  >  STOMA  4.|TUr2t«C0S(FM»THCTAI 
400  CONTINUE 

STOMA  •  STOMA  ♦2«*C01 
NETUAN 


FNTPV  TAUl 
SI6VA  «  C.3 
00  600  NN  • 

H  •  6*NN 
FN  •  K 

Tl  ■  FN*(FN-1#)»ANUNNI*R«*«N-2I 
T2  ■  FS«(FN4U»«CNUNNI««»*N 
SIGMA  •  SIGMA  4-  (Tl4-T2i«SlN(FN»THETA) 
600  CONTINIIF 
RETURN 
ENO 
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? 


FUNCTION  W'^ANITmFTA.N) 
INTRY  WinAR 

IF  (R.FO.  A.Oi  CiO  TO  10 
CALL  ftRlIRiTHFTA.Sl) 

CALL  STHIIR.TMFTa^^U 
CALL  TAUlfRtTHFTAtAI) 

CALL  URlCUltRtTHFTAl 
CALL  UTH1lU2*NtTHFTAt 
CALL  UR10R(OUl«RtTHerAl 
CALL  UTH10THC0U2.F.THCTAI 
CALL  UTHlORIOUItRtTHfTA) 
call  imiOTH(OU4«R*THETA} 
T1  •  SI  *0111 
T2m  S2*(U1/R*0U2/RI 
T1*S3*<0U3-U2/R*0U4/R| 
WBAR*0.9*R*{T14T2*T3) 
RETURN 

10  W8AR  »  0* 

RETURN 
ENTRY  W2RAR 
CALL  I^R2(R«THETA.S11 
CALL  STH2CR*THETA,S2I 
call  TAU2<R*THETA«R31 
CALL  UR2nil«R«THFTA) 

CALL  UTH2(U2«R«ThETA) 

CALL  UR?0R(0U1«R •THETA) 

CALL  tlTH2r>TM(0U?*R*TMFTA) 

CALL  UTM?f>RI0U3*R*THFTA| 

CALL  IIR?0TH{0U4.R, THETA) 

Tl  '  51*DU1 

T2*  S2»<Ul/R*DU2/R) 

T3«S3*C0U3-U2/R*0U4/R) 

WBAR-0,5*R*(T14T2*T3) 

RETURN 

END 
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r»  n  r»  r»r»r»  n  nn  f\  r%  r\  r\e\r\  n  n  r%  f\  f\  r%  e\  f\  f\  r%  f> 


subroutine  solve  (AfB.XtMMtiTER) 


this  subroutine  solves  the  linear  equations  a*  X  >  6 
IT  IMPROVES  the  solution  BY  ITERATING  ON  THE  RESIDUALS 


INPUT 


A  ORIGINAL  COEFFICIENT  MATRIX  (SINGLE  PREC* I 

R  RIGHT  HAND  SIDE  VECTOR  (SINGLE  PRECISION) 

MM  ORDER  OF  MATRIX 

ITER  MAXIMUM  NUMBER  OF  ITERATIONS 


OUTPUT  X  SOLUTION  VECTOR  (SINGLE  PRECISION) 


0 IMENS ION  AOP ( 2 7 *27 ) • AOPS( 27 *27 ) .BDP i 27 ) .BACKOP (27) .BOPS ( 27 ) • 
1  X0P(P7J •ERROP(27) 

DIMENSION  X( 1) 
dimension  A(27«27).R(27) 

TYPE  DOUBLE  OETOP*AOP«AOPS*80P*6ACr.OP*BDPS*XOP«ERRDP 


SAVE  MATRICES  AS  DOUBLE  PRECISION  MATRICES 


DO  20  I  •  1«MM 
DO  10  U  ■  ItMM 
;0  ADPSINJ)  -  A(I«J) 

BOPS(I)  ■  B(I) 

20  BDPd)  ■  Bd) 

00  10  I  ■  1«MM 
10  XDPd)  •  0*0 

PERFORM  THE  ITERATIONS 

00  9999  I COUNT  ■  It  ITER 

00  10  I  ■  ItMM 
DO  AO  J  ■  ItMM 
AO  AOPdtJ)  -  AOPSi  ItJ) 

90  BACKDPd  )  -  OtO 

SOLVE  THE  EQUATIONS  WITH  DOUBLE  PRECISION  ROUTINE 
call  0PMATS( ADPtMMtBOPtltOETDP) 

AOO  THE  CORRECTIONS  TO  THE  SOLUTIONS 

00  99  I  ■  ItMM 
99  XOPd)  •  XOP(  I )  ♦  8DP(  I ) 

BACXSU8STITUTE  AND  CALCULATE  THE  RFSIDUAi  5 


00  70  I  -  ItMM 
DO  60  J  >  ItMM 

60  BACKOPdi  -  BACKDPd)  XOP  ( J )  •AOPS  d  t  J  ) 

70  ERROPd)  *  BOPS(I)  -  BAfKDPd) 

print  the  results  of  ^hIS  ITERATION 

PRINT  999 1  I  COUNT 

999  FORMATdHltUh  ITERATION  t  lAt  fft  ) 

PRINT  992 

992  FORMAdaXf  •  I  '  »l!JXt*X  NEW  •  1 1 7X  t »  RHS  •  » 16X  i  •  bAC-;  •  *  .  3X  t 
•♦CORRECTION' t lAXt 'ERROR' t/// ) 

PRINT  991t(  I  tXOP(  I)  tBOPSI  I  )  tOACKOPd)  iBOPt  I  )  .ERROPi  I  )  tl«l  iV.«) 
991  FORMATdl0f9E?O.fl> 
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c 

DO  7S  I  •  UMM 
71  lOPin  >  CMO^Ctl 
C  CNO  OF  LOOP  FOP  ITfPATtON 
C 

ffff  CONTI NUC 

e 

DO  10  t  •  IfMM 
ID  Xfll  •  XDPin 

e 

xcruRN 

CNO 
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o  r»  r*  o  r>  r*  r»  r»  n  rt  rt  rkr^ri  f\r\^ 


SUBMOUTtr::  OPMATSf AtN»A»M*DCTPI|M)  : 

FI  UCftO  nPMATS6l 

DQUBLC  PAI.CISION  MATRIX  IMVfRSION  WITH  ACCC  PAKYIKG  SOLUTION  OF  LINEAR 


equations 

DIMENSIONS  FON  MATINV  ARE  IPfVOTiN) tAINtN) •BfN*l )• INDEX <N*2) tP! VOtIN ) • 


N  IS  the  maximum  value  FOR  N  DEQRS* 

TYRE  DOUBLE  A»B*0ETERN,AMAX»T»SWAP»RIV0T*0A6S 

OIMENSI&S  IPIVOT(E7)tAI27*27)tB{2T*n*INOEX<27f2)*P:VCT(27) 

equivalence  fIROWiJROWI*  I  ICOLUMtJCOLUM)  •  CAMAXi  T*  SV/AP) 

initialization 

10  0ETERM«1*0 
1%  DO  20  J«UN 
20  IPiVOTfJfO 
10  00  150  Irl,N 

SEARCH  FOR  PIVOT  ELEMENT 

40  AMAX-0.0 

45  DO  105  J«1»N 

50  IF  f  IPIVOTf  J)-l)  6G,.  105«  60 
60  00  100  K«1>N 

70  IF  fIPIVOTtK)-n  80*  100*  740 
80  IFfOAASf AMAXULT.OABSlAlJtXniSStlOO 
85  IR0W«J 
50  ICOLUM-K 
95  AMAX«AfJ*X) 

100  CONTINUE 
105  CONTINUE 

no  IPlVOTtlCOLU  i*IP1V0TIIC0LUM)4>1 

INTERCHANGE  K0W5  TO  PUT  PIVOT  ELEME.'  T  ON  DIAGONAL 

130  IF  f IROW-ICOLUM)  140*  260*  140 
140  OETERMit-DETERM 
150  DO  200  L«1*N 
160  SWAP«A(IROW«L) 

170  Af lROWtL)»A( ICOLUMtL) 

?co  aucolum,lj»swap 

205  IF(M)  260*  260*  21C 
210  DO  250  L*l*  M 
220  SWAP«B( IROW*LI 
230  BtIROW*L)»B( ICOLUHtL) 

250  Bl ICOLUM.L)«SWAP 

260  INDEXI  I*n»IROW 

270  INDEX! I*2)«IC0LUH 

310  PIVOT(I)«AiICOLUM*ICOLUM| 


DPMTi  2 
DPVTS  4 


DPVTS  * 
OPWT*’.  6 
DPVTS  7 
0PM7S  ?. 


DPVTS  ' 
OPVTS  ir. 
DPVTS  ;; 
OPVTS  12 
DOvTS  1j 
DPvTS  U 
OPVTS 
OPvTf  :6 
DPvTS  17 
DP^'TS  13 
DPVTS  19 
OPMTS  2r 


DP'-'TS  ?: 

np'‘'s 

rjsv-c  y 
DP'-TS 

CP*-*:',  r- 

OOV-r  7 
?■ 

OP" 7  >  ?  ■ 
OP'".', 
DP'-‘7S  -r 
DPVTS  *: 
DPVTS  i: 
DPVTS 
DPMTS  3- 


320  0ETERM»DETERM«PIV0T( II 


DIVIDE  PIVOT  ROW  BY  PIVOT  ELEMENT 


330  AIICOHlM,!COLUM)«l.O  DPVTS  3r 
340  DO  350  L«l«N  OPVTS  3: 
350  A! ICOLUM*LI«A( IC0LUM#LI/PIV0T! I)  DPMTS  3: 
355  IFIM)  380*  380*  360  DPMTS  3< 
360  00  370  L«l»M  DPMTS  4. 
170  BCICOLUM*LI»B( ICOLUM*LI/PIVOTI I)  DPMTS  41 
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MOM  MMM 


KffOUCF  NON-#IVOr  IIOWI 


DO  490  Ll«ltN 

DRMTS 

42 

tf(Ll«tC0LU»4)  400f  9«0t  400 

DRMTA 

49 

«eo 

T«A(Ll»IC0i.UM) 

drmts 

44 

4tA 

AaitlCOLUMlaO.O 

DRMT5 

49 

4l<l 

00  490  L«ltN 

DRMTS 

44 

4S0 

A(LltL)«A<LltL)-AUC0LUM*l.)4r 

DRMTS 

47 

4»4 

iriMt  990t  990t  400 

ORMTA 

4R 

440 

DO  900  L«1*M 

drmts 

44 

SOO 

B(Ll«LI*fl(Ll«LI«|fl€0tUM»L)4T 

DRMTS 

50 

9«A 

CONTINUI 

DRMTS 

91 

INTCACHANOC  COLUMNS 

«eo 

DO  710  laltN 

DRMTA 

92 

«1A 

L«N4l-I 

99 

•20 

ir  (INOFI(Ltn-tNO€X(Lttn  AfO*  710f  490 

DPVTS 

94 

•90 

J40Wa|ND€X(Ltn 

UPvrA 

99 

640 

jceLUM*iNorxat2) 

OP^'f.? 

SA 

•90 

DO  709  K*1«N 

OPN  rs 

97 

••0 

SWAP«A|K«JAOWI 

OPPTS 

92 

•70 

A  ( R  f  .lAOW }  •  A  ( K  •  JCOLUM ) 

OPMTS 

99 

700 

A(KfJCOLUM)«SWAP 

BPMTS 

60 

709 

continue 

6: 

710 

CONTINUE 

Dovts 

6? 

740 

RETURN 

DPVT9 

69 

790 

END 

0PMT9 

64 
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SUDROUTINZ  OOURLEiXa*Xl*YO*Yl«TeST*LlM«VOLUME«;NTX*R  vF) 


ARfiliyrNTS  •• 


XO  LOWFR  LI^'IT  CF  outer  IKTriGRAU  (IN?*!;:) 

XI  UPPtR  LIMIT  OF  OUTER  INTEGRAL  <■  >UT| 

YO  lower  LIMIT  OF  INNER  INTEGRAL  Cl.V^UT) 

Y1  UPPER  LIMIT  OF  inner  INTEGRAL  MNPUT) 

TEST  MAXIMUM  TOLERALLE  RELATIVE  ERROR  FOR  OUTER  INTEGRAL  (INPUT) 

LIM  MAXIMUM  NUMBER  0-  SUBDIVISIONS  FOR  BOTH  INTEGRALS  (INPUT) 

VOLUME  VALUE  OF  The  OOL'RLE  INTEGRAL  (OUTPU’. ) 

INTX  I2*»|NTX)  ■  number  07  SUBDIVISIONS  FOR  CUTER  INTEGRAL  (OUTPU 

R  RELATIVE  ERROR  FOR  THE  OUTER  INTEGRAL  (OUTPUT) 

F  NAME  OF  function  TO  BE  INTEGRATED  (INPUT) 

the  relative  error  of  tme  Inner  integral  is  ten  times  smaller 
Than  that  for  the  outfr  intfgral 

NOIX-XOUNT*  0  OOUflLr 

oon  ■  FVFN  ■  VOLUMl  ■  0.0 

INTX  ■  V  ■  l.O  OOtiBL' 

R1  •  lO.C  DOUBLE 

TES  ■  *.FST  /  10, 

CALL  |.NNER(XO«Yo«Yl*TES«LlM,FAC£0«NUHBRfARE  «F  )  DOUBLE 

call  lNNEK(Xl«YwfYl*TES*LlMtFACEltNUMBRtARE  tF  )  OOUBuE 

INNER  IS  SIMC0N8  MCDIFieO  TO  REFER  TO  A  FUNCTION  F(X*Y), 

FACES  •  FACED  ♦  FACEl 

DFLTX  ■  (XI  -  XO)/V  OOIJBLP 

ODO  •  FVFN  ♦  ODD 
X  ■  XO  ♦  nFLTX/2, 

EVEN  ■  0,0 

DO  3  I  ■  !.  INTX  DO'JRlP 

CALL  lNN£R(XfYU*Yl«TrS»LlMtSECTN*NuHBR*ARE  tF  )  OCUaLE 

EVEN  «  FVFN  ♦  SECT*: 

X.  X  ♦  DFLTX 

continue 

VOLUMF*(FACFS^4.0«FVFN4.2,0*0n0)«DFLTX/6. 

NOIX  •  NO IX  ♦  1  Or.'J=^- 

R»  ABSFd.  «  (  VOLUMl /VOLUME  )  )  OOJcLE 

IF(R.GE.RI)  5.31 

IF(NOIX  .CE*  LIM  )  35.  32  00U9LF 

IF(R,LF.7Fr.T)  35.33 
VOLUMl  a  VOLUME 
INTX  a  !NTX»  ? 

V  a  V«?. 

GO  TO  p 
RETURN 

IF?xO(;nt,GE,3)  55.51 
FOUNT  a  KOUNT  ♦  1 
PI  a  R 
GO  TO  ? 

PRINT  **6,  VOLU^F,  P,  \OrX 

F0RViT(30H  OUTER  INTEGRAL  NOT  CONVERGING  .  2F15,6.16  )  DOU^LF 

RETURN  DOu-LP 

END  DOUBLE 


OOUBLP 


OO'JFL^ 

OCUaLE 


OOJcLE 


DOU^LF 

DOu-LP 

DOUBLE 
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function  F  (THFTAtR) 
rNTRY  FI 

CALL  tmilUliRiTHFTAI 
CALL  llTHl]Ultll«TH*TA) 
F  ♦U7«*2tM 

neruRN 

c 

c 

CNTHV  F2 

CALL  UR2<UliA«THFTAt 
CALL  UTH2(ll2tAtrHFtA) 
F  •mi*«2^li2«»2)»» 
FITURN 

FNO 


O 


r»  o 


SUDROUTI.NZ  r.\,\£RUBSC:  :1»X??.D,:£ST*LIM*AR=A.\0!  .R#F) 

01  urso  SIMOON*  RFVISEO  march  1967  TO  REFER  TO  2*ARGUMcNT  FUNCCJONS 
AND  TEST  THFIR  CONVERGENCE# 

NOI  ■  KOUNT  ■  0 
Rl  •  10.0 
OOOaOaO 
INT«1 
v«1.0 
rvrN«o*o 

ARFAJaO.n 

19  ENOS-  FUnSCIStXn  ♦  F{ABSCIS»XEND) 

2  H«(XFNO-xn/V 
000«EVEN4000 
X-Xl^H/2, 

EVEN*0,ft 
00  t  I-l.INT 

21  even-even^  F(ARSCtS*X) 

X*X*H 

7  CONTINUE 

11  ARCAa(FNDS  ♦N«n«FVFNa>2«0«O00I*H/6.0 

NOI-NOI^l 

34  R#ABSF< (AREA1-AREA)/AREA  } 

IF(R«GF*R1J  50*  3405 
1405  R1«R 

IF(NOI-LIMt  141*60*40 
141  tF(P-TFf.T»  15*35.4 
15  PFTllRN 
4  AffFAlcARFA 

46  INTa7»INT 
V#2.0»V 
GO  TO  2 

50  IF(XOUNT*GF,H  55*51 

51  rOtJMT  ■  KOUNT  ♦  1 
Rl.P 

GO  TO  7 

55  PRINT  56*  AREA.  R*  NOI.  ABSfIS 

56  FORMAT!  30M  INNER  INTEGRAL  NOT  CONVERGING  *  2F15.6. I6.F 15 ,6  } 

RETURN 

60  print  61 

61  format  !42H  USED  UP  SPLITTINGS,  RETURNING  TO  DOUBlf.  ) 

RETURN 

END 


INNER 


INNER 

INN-R 

INNFR 


:.\N.-R 
:\\r^ 
INN»  R 
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c 


SWR?<CjTINt  lISTARAY  (Ai  KMAX*  y*  N*  ISTART) 


ACNMAx*  1) 

rtJMFNM'JN  IFORM(IO) 


DATA  (  I FORM 

•  AHUl)  t 

CHI/«SH6R0t 
RH  « 

shm  cnL«2« 
8H4t2Xlt9H« 
ftH  ROW)  t 
RH(t4«lX«  t 
GH  • 

FMM)  . 

SMI  IMA  I 

IFOR'^I^I  • 

8MW  .1015 

IFORmiA)  • 

RH10E11.1* 

IRAGF  •  JPAGf 

•  1 

IF{M  ,i.r,  2SJ 

JPAGF  •  2 

00  10  ;«TS^PT 

.  N.  10 

.IVl  •  :-1  t  IP9  ■  I+P  $ 


last  .  irt 


TF(IP9  .fiT.  N1  6.7 

6  IP9  *  N  %  J  -  N-lSTART^l  S  LAST  •  J-(  10*(  J/.IC)  ) 

ENCOorJS.  9f>r.,  IFrp^M^))  last 
FMcnnr«fl.  oti.  ifopv(8)i  last 

oon  FrPVAT  UHW  ..I?.?H{S} 

PCI  FOPMAT  (f?.AHFn.S,| 

7  r>(C  A  ICOtiVT  •  1.  last 

s  irdrnwNT)  •  ivi  ♦  frntwT 
PRINT  IPrOMcH^iPArr 
PRINT  IFORM(2).  (IC(J)*  J*:.LAST) 

PRINT  IFOPv(?),  (j,  (A(  4I>.n*I.  IP9).  J* 

PRINT  IFnRV(2).  (ICtJI.  J«l.LAST»  * 

Ifl  CONTINUE 

PRINT  IFCRM(IO) 

rfturn  s  end 


larv 

R 

LARV 
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A 
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6 
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7 
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R 
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R 
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to 
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It 

LAPY 

12 

LAPY 

IS 

larv 

14 
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IS 

LAPY 

ns 

LAPM 
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LAPv 

IS 

LAPY 
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lapy 
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LAPY 

IS 

t  AOY 

lapy 

21 

L  APv 

?? 
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IlS  abstract  I 

Part  I  of  this  report  covers  the  problem  of  free  and  forced  vibration  of  a  uni¬ 
directional,  multifiber  reinforced  composite.  A  theoretical  investigation  is  con¬ 
ducted  througji  the  use  of  the  linear  theory  of  elasticity.  For  this  case,  the 
geometrical  array  of  the  fiber  representative  element  consists  of  a  circular,  inner 
solid  fiber  cylinder  bounded  by  and  bonded  to  a  .ircular  outer  matrix  shell.  Com¬ 
posites  of  infinite,  finite,  and  semi- infinite  lengths  are  treated.  It  is  assumed 
that  the  deformation  is  axisymmetrical  and  that  the  vibration  is  longitudinal. 
Characteristic  equations  are  established  which  relate  circular  frequencies  to  axial 
wave  numbers  for  three  cases  of  composite  length.  Solutions  are  obtained  for  stresses 
and  displacements  of  composites,  of  finite  or  semi-infinite  length,  subjected  to  axial, 
piecewise-constant ,  or  sinusoidal  loading  at  one  end  ai  J  different  geometrical  bound¬ 
ary  conditions  at  the  other.  Part  II  presents  an  approximate  differential  equation 
based  on  the  Bernoulli  h>>othesis  of  deformation.  The  solution  of  this  equation  is 
established  for  steady  and  transient  states  of  vibration  in  composites  of  both  finite 
and  infinite  length.  Computation  of  the  coef fi''ients  in  the  differential  equation  is 
performed  by  assuming  symmetry  of  revolution  for  the  basic  element  and  also  by  using 
a  hexagonal  fiber  arrangement.  Part  III  lists  numerical  results  based  on  the  equa¬ 
tions  developed  in  Parts  I  and  II.  The  appendixes  to  this  report  give  the  computer 
programs  used  to  perform  the  computations. 
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